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1.0 INTRODUCTION 
1.1 ABSTRACT 


THE RMO5/3/2_ SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 
WHICH USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE 
RMO5/3/2 DISK SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE 
FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
ae mar INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONAL; 1. © ‘= 9M05/3/2 SUBSYSTEM, INCLUDING 
THE MASSBUS CONTROLLER, MASSBUS a P}25 .@& THE DISK DRIVE. 


THE TEST IS COMPRISED OF % *R'S, wh ICH WOULD NORMALLY BE RUN IN 
SEQUENCE, STARTING WITH PAR? }. Kisco L¥, PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERAIiUNS; PART 2 TESTS WRITE, READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE, 
READ AND WRITE CHECK OPERATIONS USING DATA. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMOS/3/2 DISK SUBSYSTEM WHICH 

ping tet he OF THE RHXX MASSBUS CONTROLLER, THE RMO5/3/2 MASSBUS ADAPTER, 
AND THE STORAGE Sere DISK DRIVE. NOTE THAT A DISK PACK IS REQUIRED 
wae IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 


THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
Pair? ima feat REQUIRED TO LOAD AND EXECUTE THE RMO5/3/2 SUBSYSTEM 


PDP-11 PROCESSOR 
20K MEMORY 

KW11-L OR KW 1=P CLOCK 

Tears LOADING DEVICE 

RH11 OR RH70 CONTROLLER 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5'S, RMO3'S OR RMO2'S) 
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2.2 MEDIA REQUIREMENTS 
EACH UNIT BEING TESTED MUST BE LOADED WITH A SCRATCH DISK PACK 


BEFORE TESTING BEGINS ON THAT UNIT. THE DISK MAY BE FORMATTED OR 
UNF ORMATTED. 


2.5 PREREQUISITE DIAGNOSTIC PROGRAMS 
RMO5/3/2 DISKLESS TEST, PART 1 & 2 


3.0 OPERATING PROCEDURE 
3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


-PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
-XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 


SwW15 HALT ON ERROR 


Swi LOOP ON TEST (CURRENTLY BEING EXECUTED) 
ee INHIBIT ERROR TYPEOUTS 


UNUSED 
Swi] INHIBIT TEST ITERATIONS 
SW10 BELL ON ERROR 
SWO9 LOOP ON ERROR 
SwO08 LOOP ON TEST IN SWO7-00 


THE LOW ORDER 8 SWITCHES (SWO7-SWOO), ARE USED IN CONJUNCTION WITH 
eon a SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 


3.3 STARTING 


THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL TEST CONDITIONS. 


3.4 HALTING 


SEQ 0004 


= 
ZRMMBO 8MO5/5/2 FCINL TST 1 MACRO VO4.00 4-APR=81 11:43:28 PAGE 3-2 
SEQ 0005 


116 THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR 
ye BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL 

*. 7 
119 
120 3.5 RESTARTING 
122 THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 
126 
125 
126 4.0 OPERATOR INTERFACE 
128 4.1 PROGRAM ID 
130 THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME [T 
131 IS STARTED AFTER BEING LOADED. PROGRAM IDENTIFICATION DOES NOT OCCUR 
132 IF THE PROGRAM IS RESTARTED. 
134 
135 
136 4.2 CONSOLE DIALOGUE 
138 WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE. IT ENTERS A 
139 CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM 1.D.. 
4 
141 THE FIRST QUESTION TYPED OUT IS: ‘TYPE HELP TEXT (1) N 2°. 
142 IF THE OPERATOR RESPONDS WITH A ‘'Y’', THE PROGRAM WILL TYPE A BRIEF 
143 HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
1h TO THE QUESTION IS CONSIDERED A 'N'' AND NO HELP TEXT IS TYPED. THIS 
145 QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
148 SUBSEQUENT START-UP'S. 
148 ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204. 
149 THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
150 DIALOGUE. 
t 
152 EXAMPLE 1 
154 RMCS1=176700 <CR> :NO CHANGE IN ADDRESS 
155 RMVEC=000254 <CR> “NO CHANGE IN ADDRESS 
197 : EXAMPLE 2 
159 RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200 
160 RMVEC=000254 260<CR> | :CHANGE VECTOR ADDRESS TO 260 - 
162 ON THE INITIAL START, THE NEXT QUESTION TYPED IS. ‘TYPE “‘A'' TO 
163 TEST ALL DRIVES, OR TYPE’ DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
, A CARRIAGE RETURN'. THEN, "DRIVE(S):' IS TYPED AND WAITS FOR THE 
165 OPERATOR TO TYPE AN ‘'A’', TO TEST. ALL POSSIBLE DRIVES OR TYPE ANY 
166 STRING OF DRIVE NUMBER (SS TO BE TESTED AND TERMINATE THE INPUT WITH A 
167 “CARRIAGE RETURN'’. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
162 ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
169 SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 


170 STARTS, ONLY THE "DRIVE(S):' PROMPT IS TYPED. 
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SEQ 0006 

172 THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 

17% ‘DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
126 1S AN EXAMPLE PRINTOUT: 

176 "UNIT STATUS: 

177? 0 LINE RMO43 
178 1 LOAD DEVICE 
179 2 OFFLINE RMOS 
7B0 3 NOT PRESENT 
181 4 NOT PRESENT 
182 5 NOT AN RMO5/3/2 
133 6 NOT PRESENT 
196 7 NOT PRESENT’ ° 
186 3 THE ABOVE UNIT STATUS SHOWS THAT DRIVE O WILL BE TESTED, WHILE DRIVES 
187 1 = 7 WILL NOT BE TESTED. 
189 THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE STATUS 
130 OF THE DRIVE: 
198 "DRIVE(S) TO BE TESTED, 0° 
194 IF NO DRIVES ARE AVAILABLE FOR TESTING THE FOLLOWING MESSAGE WILL BE 
195 TYPED TO THE OPERATOR: 
197 DRIVE(S) TO BE TESTED. NONE* 
199 ° THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
200 TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT 
202 ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
205 AS EACH DRIVE BEGINS TO BE TESTED: 
205 "DRIVE 0° 
2 
207 AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
208 MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
209 TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
$10 1S HALTED BY THE OPERATOR. 
212 NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
213 OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 
214 L=LETTER. 
215 
216 
217 
218 4.3 PROGRESS REPORTS 
220 AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS. EXECUTED 
oe] FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 
57 "END OF PASS 1° 
225 THE FOLLOWING MESSAGE atte ALSO OCCUR IF THERE WERE ERRORS SINCE 
226 THE LAST END OF PASS REPORT 

gc 


228 "TOTAL ERRORS SINCE LAST REPORT Q' 
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4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM, | 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING ny EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF, YET Seay Poe Ot DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 


THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 
DRVA 0 - RMOS, TEST# 14, ERRA 326, PC=016654 
MASSBUS DATA BUS PARITY ERROR *MDPE"’ (RMCS2, BIT 8) DETECTED 
DURING WRITE COMMAND 
EXPECTD RECEVD 
040300 0 


RMCS1 RMCS2 RMER1 RMER2 RMAS 
144252 040700 610700 re 600000 00C 700 


RMWC RMBA RMDC RMEC1 RMEC2 
177403 104604 990002 010000 000000 004066 000000 
RMMR 1 RMMR 2 RMSN 

000010 011777 622026 177777 


4.7 EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 20 again PASS 2 AND 
SUBSEQUENT PASSES TAKE 1 MINUTES 40 SECONDS 
5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 

THE RMOS/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP=11 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 
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5.2 DUAL PORT CONFIGURATIONS 
THE pg 8 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 
DUAL _PORT LOG IN THE RMO5/3/2 ADAPTER BUT IS EXECUTABLE 


ON 
RM05/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION FROVIDING THE DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RMOS/3/2 
SUSBYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 


THE sets hee’ ag! ee FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM 
Senter y nee” A Quick PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 


5.6 XXDP COMPATIBILITY 
THE RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 


DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RMO5/3/2 IS THE XXDP LOADING DEVICE. 


5.7 OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


6.0 TEST DESCRIPTION 


TEST 1 CONTROLLER ACCESS TEST 
PURPOSE: 


SEQ 0008 


364 TEST 
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TO VERIFY THAT THE UNIBUS ADDRESS OF THE SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION $BASE. 


PROCEDURE : 

THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
USING THE $BASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 

IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A_ STAND 
ALONE ENVIRONMENT, I.£., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $BASE 


ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


2 UNIBUS INITIALIZE TEST 
PURPOSE: 


TO VERIFY THAT ALL APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY THE RESET INSTRUCTION. 


PROCEDURE : 

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE REGISTER. A 
RESET INSTRUCTION IS EXECUTED, AND THE REGISTERS ARE TESTED TO 
INSURE THEY WERE INITIALIZED. THIS TEST IS DONE ONCE BECAUSE OF 
APT COMPATIBILITY REQUIREMENTS. 


artiae FOLLOWING REGISTERS ARE PRESET BEFORE THE INITIALIZE 


RMCS1 = 003577 
RMBA - 777776 
RMCS2 - 021057 
RMER1 - 777777 
RMER2 = 777777 
RMMR = 040001 . 


IN ADDITION, THE DATA BUFFER IS ee TO FORCE DLT,.TRE,SC AND OR 
TO A ONE AND TO FORCE IR TO A ZERO 


SEQ 0009 
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TEST 


TEST 
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3 CONTROLLER CLEAR TEST 
PURPOSE : 


TO VERIFY THAT APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY A ‘‘CONTROLLER CLEAR’' OPERATION. 


PROCEDURE : 

LIKE THE UNIBUS INITIALIZE TEST, THIS TEST WRITES NONZERO 
VALUES IN THOSE REGISTERS WHICH ARE INITIALIZED BY CONTROLLER 
CLEAR. THE SUBSYSTEM IS THEN CLEARED USING A CONTROLLER CLEAR, 


I.—., BIT 5 OF CONTROL STATUS REGISTER 2 (RMCS2), AND EACH 
REGISTER IS READ TO INSURE IT WAS CLEARED. 


4 ERROR CLEAR TEST 
PURPOSE : 


TO VERIFY THAT ALL APPLICABLE RH MASSBUS CONTROLLER STATUS 
AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION. 


PROCEDURE : 


AN "RH ERROR CLEAR’’ OPERATION, I.E., WRITING A ONE IN TRE, 
BIT 4 OF RMCS1 WILL CLEAR THE FOLLOWING STATUS BITS: 


- TRE, BIT 14 OF RMCS1 
-MCPE, BIT 13 QF RMCS1 = READ ONLY 
-DLT, BIT 15 OF RMCS2 = READ ONLY 
-WCE, BIT 14 OF RMCS2 - READ ONLY 
-UPE, BIT 135 OF RMCS2 
-NED, BIT 12 OF RMCS2 - READ ONLY 
-PGE, BIT 10 OF RMCS2 - READ ONLY 
-MXF, BIT 09 OF RMCS2 
-MDPE, BIT 08 OF RMCS2 = READ ONLY 


THE TEST SETS UPE AND MXF STATUS BITS, THEN SETS TRE (ERROR 
CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED. 
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5 DRIVE STATUS TEST 
PURPOSE: 


TO VERIFY THAT THE STORAGE MODULE DISK DRIVE IS IN A_ STATE 
THAT PERMITS FURTHER TESTING. 


PROCEDURE : 


THIS TEST INITIALIZES THE MASSBUS AND EXAMINES STATUS OF THE 
SELECTED DEVICE FOR THE FOLLOWING CONDITIONS: 


MOL, BIT 12 OF RMDS =1, INDICATING THAT UNIT READY IS 
ASSERTED BY THE DRIVE; 


BIT 11 OF RMDS =0, INDICATING THAT THE DRIVE IS NOT IN 
4 wRITE PROTECT STATE; 


DVC, BIT O07 OF RMERS =0, INDICATING DRIVE FAULT IS 
UNASSERTED BY THE DRIVE; 


UNS, BIT 14 OF RMER1 SHOULD EQUAL DVC, OTHERWISE AC POWER 
IS LOW OR A FAILURE HAS OCCURRED WITH UNSAFE STATUS. 


6 PRIMARY/SECONDARY ERROR TEST 
PURPOSE : 


TO VERIFY THAT THE RMO5/3/2 CAN EXECUTE A COMMAND WITHOUT 


INCURRING UNEXPECTED ERRORS. 
PROCEDURE : 
THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES SURE 


THAT GO RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC. VOLUME 
VALID STATUS IS IGNORED. 


7 DIAGNOSTIC MODE TEST 
PURPOSE : 

TO VERIFY THAT MAINTENANCE HARDWARE IS OPERATIONAL. 
PROCEDURE : 

THE TEST THAT DIAGNOSTIC MODE CAN BE SET AND RESET. THEN 


VERIFIES THAT ‘MOL, PIP, WRL, SKI, AND DVC'' CAN BE CONIROLLED 
USING MAINTENANCE REGISTER 1. 
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10 PACK ACKNOWLEDGE TEST 
PURPOSE : 


TO VERIFY THAT VOLUME VALID CAN BE SET BY A PACK ow gee 
COMMAND, LENDING CREDENCE TO THE EXECUTION OF THE COMMAND AND TO 
THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE. 


PROCEDURE : 


A PACK ACKNOWLEDGE COMMAND IS ISSUED TO THE SELECTED DEVICE 
AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE. 


11 RECALIBRATE TEST 
PURPOSE : 


THE PRIMARY PURPOSE IS TO ASCERTAIN THAT THE DRIVE WILL 
EXECUTE A _ RECALIBRATE OPERATION TO THE EXTENT THAT 'PIP'' AND 
‘'SKI"' STATUS BECOME UNASSERTED AT THE COMPLETION OF _ THE 
RECALIBRATE. |THE SECONDARY PURPOSE IS TO PUT THE DRIVE INA 
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK FOR UNEXPECTED STATE 
CHANGES IN THE ‘DRIVE. 


PROCEDURE : 


THE RECALIBRATE TEST PRESETS THE DISK ADDRESS REGISTER, 
RMDA, AND THE DESIRED CYLINDER REGISTER, RMDC, TO ZERO, THEN 
EXECUTES A RECALIBRATE COMMAND. THE TEST VERIFIES THE FOLLOWING 


-SKI=0, ‘'SEEK ERROR’' IS INACTIVE; 


PIP=0, ‘ON CYLINDER'' IS ACTIVE, AS INDICATED BY 
‘POSITIONING IN PROGRESS'' BEING INACTIVE; 


. IAE=0, NO ‘INVALID ADDRESS ERROR’ DURING RECALIBRATE; 


OPI=0, NO “OPERATION INCOMPLETE ERROR’’, INDICATING THAT 
THAT “THE DRIVE WAS READY AT THE START OF THE COMMAND AND THAT T ON 
BLO cr STATUS WENT INACTIVE WHEN THE DRIVE RECEIVED THE 


-ATA=1, ATTENTION IS SET BY RECALIBRATE. 


a a a a ae ae a ane rye inten ieaeniesstsetnstateenesinstsesen ise cetionserenctetscoeniieennennencemenesimneeeneesinm seeneumeaninninen ee a thoes 


SEQ 0012 


2 Te we 


-2RAMMBO RMO5/3/2 FCINL TST 1 


POPUPS TTP 
LS SRLESELSLES 


SAACACCE CeO 
Ow 
oP oe 


SRST 


PADS AAACOCE HR 
tlt nile willy amily umilly al mails mail ills ily 
CO OOO nF inte OO 


o> 
uy 


od al 
Pf 
LE 2S 


PPO 
‘ ° 
“/ w- - 
ie. 


MACRO V04.00 


TEST 


TEST 


TEST 


nN 1 
4-APR-B81 11:43:28 PAGE 3-10 


12 ABORT RECALIBRATE TEST 
PURPOSE : 


TO VERIFY THAT THE RMO5/3/2 INHIBITS A RECALIBRATE WHEN AN 
ABORT CONDITION EXISTS AT THE START OF THE COMMAND. 


PROCEDURE : 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
RECALIBRATE COMMAND, VERIFYING THAT “PIP** REMAINS INACTIVE. 


13 IVC RECALIBRATE TEST 
PURPOSE : 


TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2, SETS 
N VOLUME VALID IS INACTIVE DURING A RECALIBRATE COMMAND. 


PROCEDURE : 
SETS AND RESETS DIAGNOSTIC MODE WHICH CAUSES 


THE PROGRAM 
VOLUME VALID, BIT 6 OF RMDS TO RESET. THE PROGRAM THIEN SS 


A RECALIBRATE COMMAND AND VERIFIES THAT ‘“‘IvC'* STATUS SETS 
THAT *PIP** REMAINS INACTIVE. 


14 JAE RECALIBRATE TEST 


' PURPOSE : 


TEST 


TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET DURING A 
RECALIBRATE COMMAND . 


PROCEDURE : 
THE TEST PRESETS THE DISK ADDRESS (RMDA) AND THE DESIRED 
T 


CYLINDER ADDRESS (RMDC) TO ILLEGAL VALUES AND ISSUES A 
RECALIBRATE COMMAND, VERIFYING THAT ““JAE’’ DOES NOT SET DURING THE 


15 RECALIBRATE AT OFFSET 
PURPOSE : 
TO VERI#¥ THAT OFFSET MODE DOES NOT AFFECT RECA [BMATE, 
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TES? 


PROCEDURE : 
THE TEST EMECUTES AN OFFSET COMMAND, THEN EXECUTES A 


RECALIBRATE COMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURING 
RE CAL IGRATE. 


To DRIVE CLEAR TEST 
PURPOSE : 


TO VERIFY THAT ALL APPLICABLE RMO5/3/2 MASSBUS ADAPTER ERROR 
AND STATUS CONDITIONS ARE INITIALIZED BY A “DRIVE CLEAR‘ COMMAND, 


PROCEDURE : 


THIS TEST WRITES ONES IN THOSE MASSBUS ADAPTER BITS WHICH 
ARE INITIALIZED BY DRIVE CLEAR , THEN cae THE DRIVE ty 
OMMAND AND VE ADDIT! 


THE FOLLOWING ITEMS ARE PRESET: 

-4#MER1, ERROR REGISTER 1 IS SET TO ALL ONES; 
-DMD, DIAGNOSTIC MODE IS SET; 

-RMER2, ERROR REGISTER 3, IS SET TO ALL ONES. 


FOLLOWING THE DRIVE CLEAR COMMAND, THE FOLLOWING ITEMS ARE 
CHECKED: 


~-RMCS1, IS CHECKED FOR DVA=1, FO-F4 AND GO=0, ALL OTHER BITS 
ARE DONT CARES: 


-RMDS, IS CHECKED FOR 0, EXCEPT FOR MOL,DPR,DRY, AND VV 
WHICH SHOULD BE ONE, AND PGM WHICH IS A DONT CARE. 


~-RMERT, IS CHECKED FOR 0; 
-RMAS. IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0; 


-RMMR, IS CHECKED FOR 0, EXCEPT FOR WORD CLOCK, LAST SECTOR, 
AND LAST SECTOR AND TRACK WHICH ARE DONT CARES: 


-RMMR2 IS CHECKED FOR 0. EXCEPT FOR THE TEST BIT WHICH IS 
ONE, AND REQA, REQB WHICH ARE DONT CARES; 


-RMEC2 IS CHECKED FOR 0; 
-RMER3S IS CHECKED FOR C; 


re —— ae eee -- ~~ — <= . 


ee 
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SEQ 0015 
685 
686 
4,87 
688 
689 TESi 17 NOP TEST 
690 
+4) PURPOSE : 
a TO VERIFY THE EXECUTION OF ‘‘NOP"' COMMAND. 
oe PROCEDURE : 
697 A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS 
698 IS CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED 
699 CHANGES IN STATUS. 
700 
701 
702 
703 
704 
705 TEST 20 OFFSET TEST 
706 
24 PURPOSE : 
a TO VERIFY THE EXECUTION OF ‘‘OFFSET'' COMMAND. 
ad PROCEDURE : 
713 THE OFFSET COMMAND IS EXECUTED AND THE PROGRAM CHECKS THAT 
714 OFFSET STATUS, BIT O OF RMDS IS SET AND THAT ATTENTION, BIT 15 OF 
715 RMDS IS ALSO SET. ADDITIONALLY, CONTROLLER, ADAPTER, AND DRIVE 
A STATUS IS CHECKED FOR UNEXPECTED CHANGES. 
718 
719 
720 
721 
76 TEST 21 GO/ATA TEST 
Se PURPOSE : 
726 TO VERIFY THAT ‘“‘ATA'' WILL RESET WITH ‘'GO’' PROVIDING 
ie ; COMPOSITE ERROR IS INACTIVE. 
da PROCEDURE : 
731 ATTENTION, BIT 15 OF RMDS, IS SET USING AN OFFSET COMMAND 
es AND RESET USING A NOP COMMAND. 
734 
735 
736 
737 
ee. TEST 22 WRITE ATA TEST 
740 PURPOSE: 


—— 2 = 
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SEQ 00146 

742 O VERIFY THAT ATTENTION CAN BE RESET BY WRITING THE 
5 ATTEN! ION SUMMARY REGISTER, RMAS. 

44 
745 PROCEDURE : 

46 
747 ATTENTION IS SET USING AN OFFSET COMMAND AFTER WHICH THE 
748 PROGRAM WRITES A 0 _IN THE ATTENTICN SUMMARY REGISTER, VERIFYING 
749 “ THT ATTENTION REMAINS SET. FOLLOWING THAT, THE PROGRAM WRITES A 
750 1 IN RMAS AND VERIFIES THAT ATTENTION RESETS. 
751 
752 
753 
754 
755 
136 TEST 23 ERROR/ATA TEST 
es PURPOSE : 
760 TO VERIFY THAT ‘'GO’’ DOES NOT RESET ‘‘ATA’’ WHEN THERE IS A 
ad COMPOSITE ERROR. 
ay PROCEDURE : 
765 ""ATA'' IS SET WITH AN OFFSET COMMAND AFTER WHICH ONE OF THE 
766 ERROR BITS IS SET. THE PROGRAM THEN ISSUES A NOP COMMAND AND 
767 VERIFIES THAT THE ATTENTION BIT REMAINS SET. 
768 
769 
779 
771 
772 
Le TEST 24 PROGRAM INTERRUPT TEST 

4 
A, PURPOSE : 
777 TO VERIFY THAT THE SUBSYSTEM WILL GENERATE A PROGRAM 
778 INTERRUPT WHEN PROCESSOR PRIORITY IS LESS THAN CONTROLLER 
cy PRIORITY AND INTERRUPT IS ENABLED. 
a! PROCEDURE : 
783 ATTENTION IS SET USING AN OFFSET COMMAND. 3 WITH INTERRUPT 
784 ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY. THE 
285 : PROGRAM VERIFIES THAT A PROGRAM INTERRUPT OCCURS. 
787 
788 
789 
790 
wal TEST 25 INHIBIT INTERRUPT TEST 
cat . PURPOSE : 
795 TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR WHEN (7) 
796 PROCESSOR AND CONTROLLER PRIORITY ARE THE SAME AND INTERRUPT IS 
797 ENABLED OR (2) WHEN PROCESSOR PRIORITY Is LESS THAN CONTROLLER 


798 AND INTERRUPTS ARE NOT ENABLED. 


a 
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PROCEDURE : 

ATTENTION IS SET USING AN OFFSET Sepa WITH THE PRIORITY 
OF THE PROCESSOR SET EQUAL TO THE PRIORITY OF THE CONTROLLER. 
INTERRUPT IS ENABLED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. INTERRUPTS ARE DISABLED AND PROCESSOR 
PRIORITY JS LOWERED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. 
26 RETURN TO CENTERLINE TEST 
PURPOSE: 

TO VERIFY THE EXECUTION OF ‘RETURN TO CENTERLINE’’ COMMAND. 
PROCEDURE : 


THIS TEST ISSUES AN RTC COMMAND AND VERIFIES THAT OFFSET 
STATUS, BIT 0 OF RMDS IS RESET AND THAT ATTENTION, BIT 15 OF RMDS 
IS SET. UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED. 


27 READ IN PRESET TEST 
PURPOSE : 

TO VERIFY THE EXECUTION OF “READ IN PRESET'’ COMMAND. 
PROCEDURE : 

THIS TEST LOADS NON ZERO VALUES IN THOSE ADAPTER REGISTERS 
WHICH ARE INITIALIZED BY THE READ IN PRESET COMMAND, THEN 
EXECUTES THE COMMAND AND VERIFIES ve CONTENTS OF EACH REGISTER. 
THE FOLLOWING REGISTERS ARE CHECKED 


- RMDA THE DISK ADDRESS REGISTER, IS LOADED WITH ALL 
ONES AND VERIF LED TO BE ZERO AFTER THE RIP COMMAND: 


~RMDC, THE DESIRED CYLINDER REGISTER, IS LOADED WITH 
ALL ONES (001777) AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND ; 


RMOF , THE OFFSET REGISTER, IS F..ESET (T0.016200) AND 
VERIFIED TO BE ZERO AFTER THE TEST; 


TEST 30 RMDC CLEAR OFFSET TEST 


SEQ 007 , 
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PURPOSE: 


TO VERIFY THAT WRITING THE DESIRED CYLINDER REGISTER (RMDC) 
WILL CLEAR OFFSET MODE. 


PROCEDURE : 


OFFSET MODE IS SET USING THE OFFSET COMMAND, THEN RESET By 
WRITING RMDC. 


31 ILLEGAL FUNCTION TEST 
PURPOSE: 


iin THAT THE RMOS/3/2 SUBSYSTEM DETECTS ALL ILLEGAL 


PROCEDURE : 
EACH ILLEGAL FUNCTION CODE IS EXECUTED WITH THE PROGRAM 
VERIFYING THAT ‘““ILLEGAL FUNCTION’’ STATUS, BIT O GF RMERT IS SET 


FOR EACH CODE. in SUBSYSTEM IS INITIALIZED PRIOR TO £ACH 
ILLEGAL FUNCTION TEST. 


32 INVALID COMMAND TEST 
PURPOSE : _ 
TO VERIFY IVC ERROR DETECTION. 
PROCEDURE : 
THEN EXECUTES A NOP COMMAND AND VERIFl¢S THAT IVC Ic SETS. tod 


PROCESS IS REPEATED FOR EACH FUNCTION CODE, WITH IVC BEING 
CHECKED ACCORDING TO THE FUNCTION. 


33 INVALID ADDRESS ERROR TEST 
PURPOSE : 

TO VERIFY ITAE ERROR DETECTION, 
PROCEDURE : 


SEQ 0018 


seas - 
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THE TEST EXECUTES EACH air 


ON CODE WITH RMDA, AND RMDC SET 
TO ILLEGAL ADDRESSES, AND VERIF I 


TI] 
ES IAE ACCORDING 10 THE FUNCTION. 


34 WRITE LOCK ERROR TEST 
PURPOSE : 
TO VERIFY WLE ERROR DETECTION, 
PROCEDURE : 
THE TEST SIMULATES WRITE PROTECT USING MAINTENANCE WRITE 


PROTECT AND VERIFIES WLE ACCORDING TO THE FUNCTION BEING 
EXECUTED. EACH FUNCTION CODE IS TESTED. 


35 ERROR ABORT TESTS 
PURPOSE : 

TO TES? COMMAND EXECUTION DURING AN ABORT CONDITION. 
PROCEDURE : 


EACH FUNCTION CODE IS EXECUTED UNDER A SIMULATED UNSAFE 
CONDITION AND THE TEST VERIFIES THAT GO IS RESET. 


36 RMR TEST 
PURPOSE : 

TO VERIFY THAT RMR ERROR IS DETECTED. 
PROCEDURE : 


THE TEST EXECUTES A NOP COMMAND WITH DEBUG CLOCK ENABLED. 
yeh GO SET, THE TEST WRITES RMCSI, VERIFYING THAT RMR ERROR 
SeqTs. 


37 PARITY ERROR TEST 


a ee TS CE ee ke — “ . 
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SEG 0020 

970 PURPOSE : 

372 TO VERIFY THAT PARITY ERRORS ARE DETECTED. 

= PROCEDURE : | 

976 WITH PAT SET TO CAUSE BAD PARITY ON THE CONTROL BUS, THE 
977 ' TEST WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT 
978 AN ERROR IS DETECTED BY THE RMOS/3/2 FOR EACH PATTERN. 

980 

981 

982 

983 

984 : TEST 40 ILLEGAL REGISTER TEST 

He PURPOSE: ° 

988 TO VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES RY THE 
989 SUSBSYSTEM. 

990 

4 ) PROCEDURE : 

993 EACH REGISTER ADDRESS IS ACCESSED AND ILLEGAL REGISTER 
994 STATUS, BIT 1 OF RMER1 IS CHECKED ACCORDING TO THE ADDRESS USED. 
995 . NOTE THAT THE EXECUTION OF THIS TEST IS DEPENDENT ON THE REGISTER 
996 ADDRESS JUMPER IN THE RH CONTROLLER BECAUSE THE RANGE OF 
997 ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY THE 
998 WAY THE JUMPER IS CUT. 

999 

1000 
1001 

1002 

1003 
1004 SEEK TESTS (41 - 67) 

1005 

1006 PURPOSE : 

1008 THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY 
1009 | THE EXECUTION OF SEEK OPERATIONS BY THE RMO5S/3/2 SUBSYSTEM USING 
1010 A SET OF ADDRESSES THAT TEST THE ADAPTER/DEVICE INTERFACE AND 
1011 ELECTROMECHANICAI HEAD POSITIONING HARDWARE . 

1013 PROCEDURE : 

1015 EACH TEST WILL RECALIBRATE THE DRIVE IF 'PIP'' OR ‘‘SKI'' IS 
1016 ACTIVE. FOLLOWING THAT, THE TEST EXECUTES A SEEK TO A CYLINDER 
1017 ADDRESS OR SERIES OF ADDRESSES. AT THE COMPLETION OF EACH SEEK 
1018 OPERATION, SUBSYSTEM STATUS IS STORED AND THE TEST CHECKS FOR 
1019 PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR CHECKING. IF THERE 
1020 ARE NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL ERRORS AND 
1021 THEN SECONDARY ERRORS. 

1022 

1023 

1024 

1025 
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SEQ 00, 


1027 TEST 41 SEEK TO FIRST CYLINDER TEST 
1029 THIS TEST SEEKS TO THE FIRST CYLINDER, I.£. CYLINDER O. 


1035 TEST 42 SEEK TO LAST CYLINDER TEST 
2 
1037 THIS TEST SEEKS TO THE LAST CYLINDER, I.£., CYLINDER 822. 


10435 TEST 45 SEEK PRIME CYLINDERS TEST 


1045 THIS TEST SEEKS A eg TO EACH PRIME wi yy 3 ie ADDRESS, I.E, 
1046 CYLINDERS 1, 2, 4, 8, » 32, 64, 128, 256, AND 512. 


1052 TEST 44 SEEK ZERO DIFFERGNCE TEST 
1054 THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER O. 


1060 TEST 45 SEEK MAXIMUM DIFFERENCE FORWARD 
1062 THIS TEST a : RECALIBRATE COMMAND, REGUARDLESS OF THE 


1063 CONDITION OF ‘PIP’ "'SKI'', AND THEN EXCUTES A SEEK TO THE LAST 
1064 CYLINDER. 


1070 TEST 46 SEEK ADJACENT FORWARD TEST 


1072 THIS TEST SEEKS TO CYLINDER 0, FOLLOWED BY A SEEK TG THE 
1073 ADJACENT FORWARD CYLINDER, I.E., CYLINDER 1. 


1079 TEST 47 SEEK ADJACENT REVERSE TEST 


080 
1081 THIS TEST SEEKS TO CYLINDER 1, FOLLOWED BY A SEEK TO THE ADJACENT 
1082 REVERSE CYLINDER, I.E., CYLINDER OQ. 


J 2 
CZRMMBO RM05/3/2 FCTNL TST 1 MACRO V04.00 4=APR=81 11:43:28 PAGE 3-19 


ad 
© 
0 
™N 


—_ wd = 3 
PONORIN 3 Be ee ODO oO oO 
RRUNSO0ONATRWUMOSRNURARGLSS 


’ 
ee re eh re err ee re rel ee eh ee re md ee eh eh ed ne ee ee eek ed ed ed aed etd wd 
WwW 


ee ee ee ed ed ed eet nd nd ed et et ot et 


SSBQHRRUNASYSVE 


nr ee ee ree eee 


TEST 


TEST 


TEST 


TEST 
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50 SEEK TO INVALID SECTOR TEST 

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE PROGRAM 
SEEKS TO CYLINDER 0, TRACK 0, FOR EACH INVALID SECTOR ADDRESS AND 
VERIFIES THAT INVALID ADDRESS ERROR SETS FOR FACH SECTOR. THE 
TEST IS REPEATED FOR 16 BIT FORMAT. 


f 


51 SEEK TO INVALID TRACK TEST 
THE TEST SEEKS TO EACH INVALID TRACK ADDRESS WITH CYLINDER 


AND SECTOR ADDRESS SET 10 0 AND VERIFIES THAT INVALID ADDRESS 
ERROR SETS FOR EACK TRACK ADDRESS. 


52 SEEK TO INVALID CYLINDER TEST 
THE PROGRAM SEEKS TO EACH ee ag CYLINDER ADDRESS WITH THE 


SECTOR AND TRACK ADDRESS SET OQ AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS. 


53 IVC SEEK TEST 
PURPOSE : 


TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 GF RMER2 SETS 
WHEN VOLUME VALID IS INACTIVE DURING A SEEK COMMAND. 


PROCEDURE : 
THE TEST RESETS VOLUME VALID BY SETTING AND RESETTING 


DIAGNOSTIC MODE, THEN EXECUTES A SEEK CGMMAND AND VERIFIES THAT 
"IVC STATUS IS SET. 


54 ABORT SEEK TEST 
PURPOSE : 
TO VERIFY THAT THE RMO5/3/2 INHIBITS A SEEK WHEN AN ABORT 
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SEQ 0023 


CONDITION EXISTS AT THE START OF THE COMMAND. 
PROCEDURE : 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
SEEK COMMAND, VERIFYING THAT ‘PIP’’ REMAINS INACTIVE. 


_ 2.  -3 . .3 _ 
at tL 
at et el et et ee a oe 


TEST 55 SEEK AT OFFSET 
PURPOSE: 
TO VERIFY THAT OFFSET MODE DOES NOT CAUSE ERRORS DURING 


PROCEDURE : 


THE TEST EXECUTES AN OFFSET COMMAND THEN EXECUTES A SEEK 
COMMAND, VERIFYING THE RESULTS OF THE SEEK. 


eed eed ot ot oe + 3 od 
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TEST 56 LOOK AHEAD TEST 
PURPOSE : 


TO INSURE THAT THE SECTOR COUNT WHICH ORIGINATES AT THE 
DRIVE AND IS VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS 
OPERATIONAL . | 


PROCEDURE : 


WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE PROGRAM 
SAMPLES THE LOOK AHEAD REGISTER AND COLLECTS EACH DIFFERENT 
SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR UNTIL 
31. SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE 
THAT THE SECTOR COUNT INCREMENTS CORRECTLY THROUGH THE ENTIRE 
RANGE OF VALID SECTORS. THE SAME PROCEDURE IS REPEATED FOR 16 
BIT FORMAT, WHERE THE LIMIT ON THE NUMBER OF SAMPLES IS 33. 


TEST 57 SEARCH ON CYLINDER 
PURPOSE : 


TO VERIFY THE EXECUTION OF SEARCH OPERATIONS WITH NO HEAD 
MOTION USING THE SECTOR PULSE FOR SECTOR COMPARE. 
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TEST 


TEST 


PROCEDURE : 


_ THE TEST INTIALIZES AND RECALIBRATES THE DRIVE IF ‘PIP’’ OR 
SKI" IS ACTIVE THEN SEEKS TO CYLINDER 0. THE TEST THEN DOES A 
SEARCH TO EACH SECTOR AND VERIFIES THAT THE SEARCH COMPLETES 
WITHOUT ERROR. THIS TEST IS DONE ONCE IN 18 BIT FORMAT AND ONCE 
IN 16 BIT FORMAT. 


60 SEARCH OFF CYLINDER 
PURPOSE : 


TO VERIFY THE EXECUTION OF A SEARCH COMMAND WITH IMPLIED 
HEAD MOTION. 


PROCEDURE : 


THE DRIVE IS RECALIBRATED AND INITIALIZED IF THE DRIVE IS 
OFF CYLINDER OR HAS A SEEK ERR THE PROGRAM THEN EXECUTES AND 
EXPLICIT SEEK TO CYLINDER a" s FOLLOWED BY A SEARCH 70 CYLINDER 
411., TRACK SECTOR 0. THE FOLLOWING IS SEARCHED FOR BY AN 
EXPLICIT SEEK TO CYLINDER 409., FOLLOWED BY A SEARCH TO CYLINDER 
4 TRACK 0, SECTOR 1, ETC., UNTIL ALL THE SECTORS HAVE BEEN 
SEARCHED. THE TEST IS DONE FOR 18 BIT FORMAT, WHERE THE LAST 
SECTOR SEARCHED IS SECTOR 29. THE TEST IS REPEATED FOR 16 BIT 
FORMAT, WHERE THE LAST SECTOR SEARCHED IS 31. 


61 SEARCH INVALID SECTOR 
PURPOSE : 


TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS DURING 
A SEARCH OPERATION. 


PROCEDURE : 


xX 
THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. WITH THE OFFSET REGISTER SET FOR 
18 BIT FORMAT, THE PROGRAM EXECUTES A SEARCH TO EACH INVALID 
SECTOR, I.E., SECTORS 30 AND 31 AND VERIFIES THAT INVALID ADDRESS 
ERROR SETS FOR EACH SECTOR. 


TEST 62 SEARCH INVALID TRACK 


SEQ 0024 
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PURPOSE : 


TO VERIFY THE DETECTION OF AN INVALID TRACK ADDRESS DURING A 
SEARCH OPERATION. 


PROCEDURE : 

THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM EXECUTES A SEARCH TO 
EACH INVALID TRACK ADDRESS WITH THE CYLINDER ADDRESS 0, AND 


SECTOR ADDRESS 0 AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR 
EACH TRACK. 


} 


63 SEARCH INVALID CYLINDER 
PURPOSE : 


TO VERIFY THE DETECTION OF AN INVALID CYLINDER ADDRESS 
DURING A SEARCH OPERATION. 


PROCEDURE : : 
THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT JIS OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES A SEARCH 


TO EACH INVALID CYLINDER ADDRESS AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER. 


64 IVC SEARCH TEST 
PURPOSE : 


TO VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID 
IS INACTIVE DURING A SEARCH COMMAND. — 


PROCEDURE : 
VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 


MODE. AFTER WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING 
THAT ““IVC’’ STATUS SETS. 


65 ABORT SFARCH TEST 
PURPOSE : 
TO VERIFY THAT THE RM05/3/2 INHIBITS A SEARCH WHEN AN ABORT 
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CONDITION EXISTS AT THE START OF THE COMMAND. 
{ PROCEDURE - 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
SEARCH COMMAND. VERIFYING THAT “PIP"* REMAINS INACTIVE. 
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TEST 66 SEARCH AT OFFSET TEST 
PURPOSE : . 
TO VERIFY THAT OFFSET MODE DOES NOT CAUSE SEARCH ERRORS. 
PROCEDURE : 


THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A SEARCH 
COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH, 


TEST 67 HEAD ALIGNMENT SEEK 
PURPOSE : 
HEAD ALIGNMENT FOR AN RMO5/3/2 DRIVE, IS PERFORMED AT CYLINDER 
245 DECIMAL USING THE CE PACK. A 60 MINUTE WARMUP IS REQUIRED IF 
THE PACK WAS NOT IN THE DRIVE PRIOR TO HEAD ALIGNMENT OPERATION, 
PROCEDURE : 


THE TEST EXECUTES A SEEK TO CYLINDER 245., 10 POSITION THE 
HEADS OVER THE HEAD ALIGNMENT CYLINDER, 
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HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
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INHIBIT ITERATIONS 
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.SBTTL BASIC DEFINITIONS 
ADDRESS OF THE STACK POINTER *** 1100 «xs 


EMT 
TOT 


;sBASIC DEFINITION OF ERROR CALL 
;sBASIC DEFINITION OF SCOPE CALL 


oo a DEF INITIONS 


2 
a 
3 


nHnHHe 


8 
1 195776 
177774 


177570 





>;CODE FOR ge erty TAB 
;;CODE FOR LINE FEED 


:3 ETURN 
;:CODE FOR CARRIAGE RETURN-LINE FEED 
: ;PROCESSOR STATUS WORD 


7:STACK LIMIT REGISTER 

; s PROGRAM INTERRUPT REQUEST REGISTER 
sHARDWARE SWITCH REGISTER 

:;HARDWARE DISPLAY REGISTER 


— REGI STER oa. INITIONS 


>2GENERAL REGISTER 


A A _———— 
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000004 RG = % :;GENERAL REGISTER 
000005 R5 = 45 ZIGENERAL REGISTER 
000006 RE = % >:GENERAL REGISTER 
000007 R7 = 27 >:GENERAL REGISTER 
000006 SP = % >iSTACK POINTER 
000607 Pc = %? PROGRAM COUNTER 
| ;*PRIORITY LEVEL DEFINITIONS 
| PRO = 0 ::PRIORITY LEVEL 0 
| 0 PRI = 40 >:PRIORITY LEVEL 1 
100 PR2 = 100 7zPRIORITY LEVEL 2 
| 000140 PR3 = 140 ::PRIORITY LEVEL 3 
| 200 PRG = 200 ::PRIORITY LEVEL 4 
000240 PRS = 240 >:PRIORITY LEVEL 5 
00300 PR6 = 300 ::PRIORITY LEVEL 6 
000340 PR7 = 340 zz;PRIORITY LEVEL 7 
* "SWITCH REGISTER'' SWITCH DEFINITIONS 
100000 wi5 = =: 100000 
049000 Sw14 = 40000 
020000 Sw13 = _ 20000 
010000 SWi2 = 10000 
004000 Swi1 = = 4000 
000 swi10 = 2000 
001000 swo9 = 1000 
00400 SwO8 = =_- 400 
000200 SwO7 = = 200 
00100 SwO6 = =_: 100 
000040 SwOS = 40 
000020 ve, 
010 swO3. = 10 
000004 SwO2 = 
002 swol = 2 
000001 swoO 8 = 1 
001000 Sw9=SWO9 
00040 Sw8=SWO8 
0002 SW7=Sw07 
000100 = 
000040 Sw5=SWO5 
20 Sw4=SW04 
000010 Sw3=SW03 
4 SW2=SwO02 
000002 Sw1=SWO01 
000091 SwO= 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15 = 100000 
040000 BIT14 = 40000 
020000 BIT13 = 20000 
*010000 BIT12 = 10000 
000 BIT11 = 4000 | 
602000 BIT10 = 2000 
000 BITO9 = 1000 
00 BITO8 = 400 
000200 BITO7 = 200 
100 BITO6 = 100 
0 BIT0S = 40 


SEC 0028 


CZRMMBO RMOS5S/3/2 FCTNL TST 1 


BASIC DEFINITIONS 


000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
| 000004 
| 000002 
| 000001 
| 
| 000010 
000014 
900014 
000014 
000020 
000024 
600030 
| 000034 
000060 
000064 
000240 
476 
477 
478 
479 
480 
481 004000 
482 000040 
483 000020 
4a 000010 
485 000004 
4,86 000002 
487 000001 
488 000077 
489 
490 
491 000000 
492 900002 
493 000004 
: 49% 000006 
| 495 000010 
49% 000012 
497 000014 
498 000016 
499 000020 
000022 
501 000022 
502 000024 
503 000026 


Ee AO ad oe OO we Oe ee 
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BIT04 = 20 
BITO3 = 10 
BIT02 =4 
BITO1 = 2 
BITOO = 17 
BIT9=BITOS 
BI T8=B1]T08 
BIT7=B1T07 
BI T6=BIT06 
BITS=81T05 
BIT4=BI104 
BIT3=BITO3 
BIT2=BITO2 
BITI=RITO1 
BITO=B1 700 

ier "*"CPU'’ TRAP VECTOR _ADDRESSES 
ERRVEC = 4 ME OUT AND OTHER ERRORS 
RESVEC = 10 :ZRESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 -'T’* BIT 

TRIVEC = 16 +: TRACE TRAP 
BPTVEC = 14 ; ;BREAKPOINT TRAP (BPT) 

IOTVEC = 20 32. INPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEC = 24 :zPOWER FAIL 
EMTVEC = 30 +s EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC = 34 -""TRAP’’ TRAP 

TKVEC = 60 SS TTY KEYBOARD VECTOR 

TPVEC = 64 zz TTY PRINTER VECTOR 
PIRQVEC = 240 7;PROGRAM INTERRUPT REQUEST VECTOR 
-SBTTL RM REGISTER BIT DEFINITIONS 

>*RMCS1 CONTROL STATUS REGISTER 
DVA = BIT11 :DEVICE AVAILABLE-READ ONLY 
F4 = 8]T05 :FUNCTION CODE 
FR = BITO4 sFUNCTION CODE 
F2 = BITOS = FUNCTION CODE 
F1 = BITO2 sFUNCTION CODE 
FO = BITO1 sFUNCTION CODE 
GO = BITOO :GO BIT 
FNCMSK = 000077 sFUNCTION CODE MASK 
:FUNCTION CODES (BITS 01-05 OF RMCS1) 

= 000000 ;NOP COMMAND 

ILFO2 = 000002 :; ILLEGAL COMMAND 

SEEK = 000004 > SEEK COMMAND 
RECAL = 000006 =RECAL IBRATE COMMAND 
DRVCLR = 000010 “DRIVE CLEAR COMMAND 
RLEASE = 000012 sRELEASE COMMAND 
OFFSET = 000014 : OFFSET COMMAND 
RTC = 000016 ;RETURN TO CENTERLINE COMMAND 
RIP = 000020 “READ IN PRESET COMMAND 
PAKACK = 000022 “PACK ACKNOWLEDGE COMMAND 
PACACK = PAKACK 

ILF246 = 000024 s ILLEGAL COMMAND 

ILF26 0 =6—= 000026 S ILLEGAL COMMAND 


LES AC erie ee al 


SEQ 0029 


—_— -—-—-- — 


— 
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304 000030 
507 000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
208 000050 
509 000052 
510 000054 
511 000056 
Si2 000060 
513 000062 
514 000064 
515 000066 
516 000070 
517 000072 
518 000074 
519 000076 
520 
521 
522 
525 
524 010000 
525 004000 
526 002000 
527 001 
528 000400 
529 
530 
531 000020 
552 000010 
533 000004 
534 000002 
535 000001 
536 
537 
538 177400 
539 000377 
540 
541 
542 
543 100000 
544 040000 
545 020000 
546 010000 
547 004000 
548 002000 
549 001000 
550 6004 
551 000200 
552 000100 
553 000001 
554 
555 
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SEARCH = 00003 

ILF30 0 0©=©6—s =: 900030 
ILF32 0 6©60= 000032 
ILF34 = 00005 

ILF360©=— =: 000036 
ILF4Q) =—_ =_-—«€E-N004 

ILF42 == 000042 
ILF44 == 000044 
ILF46 = 000046 
wCD = 000050 
WwCH = 000052 
ILF54 = 00005 

ILF56 == 000056 
wD = 000060 
WH = 000062 
ILf64 =©= 000064 
LLF66 4 =—= 00006 

RD = 000070 
RH = 000072 
ILF74 = 000074 
ILF76 == 0000764 


:*RMDA DISK ADDRESS REGISTER 
Sr ga seer 3 DEF INITIONS 
Al6 BITI2 


TA = 
TAB = BITT1 
TAS = BIT10 
TA2 = BITO9S 
TAl = BITO8 
;SECTOR ADDRESS DEFINITIONS 
SA16 = BITO4 
SAS = BITO3 
SAS = BITO2 
SA2 = BITOT 
SA1 = BITOO 
; TRACK & SECTOR MASKS 
TADMSK = 177400 
SADMSK = 000377 
7*RMDS DRIVE STATUS REGISTER 
‘ATA = BIT15 
ERR = BITI4 
PIP = BIT135 
MOL = BIT1I2 
WRL = BIT11 
LBT = BiT10 
PGM = BIT09 
DPR = BITO8 
DRY = BITO7 
VV = BITO6 
OM = BITOO 


:*RMERT ERROR REGISTER #1 


eet oe ree —— 7 ee —————e~- 
— — a ee 


sSEARCH COMMAND 


L 
:WRITE DATA COMMAND 
;WRITE HEADER AND DATA COMMAND 
; ILLEGAL COMMAND 


; ILLEGAL COMMAND 

sREAD DATA COMMAND 

;READ HEADER AND DATA COMMAND 
E OMMAND 


GAL C 


; ILLEGAL COMMAND 


s TRACK ADDRESS 16. 
: TRACK ADDRESS 8. 
; TRACK ADDRESS 4 

: TRACK ADDRESS 2 

; TRACK ADDRESS i 


:SECTOR ADDRESS 16. 
:SECTOR ADDRESS 8. 
:SECTOR ADDRESS 4 
:SECTOR ADDRESS 2 
. SECTOR ADDRESS 1 


; TRACK ADDRESS MASK 
:SECTOR ADDRESS MASK 


sATTENTION ACTIVE 
; COMPOSITE ERROR 
aishih tn Cie PROGRESS 


;MEDIUM ON 
sWRITE LOCK 

;LAST BLOCK TRANSFERRED 
: PROGRAMMABLE 

sDRIVE PRESENT 

DRIVE READY 

; VOLUME VAL iD 

:OFFSET MODE ACTIVE 


et ested 


. 
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RM REGISTER BIT DEFINITIONS SEQ 0051 
356 
557 100000 DCKk = BIT15 sDATA_ CHECK ERROR 
558 040000 S = BIT14 sDRIVE UNSAFE 
559 020000 OP j = BIT13 : OPERATION INCOMPLETE 
560 010000 DTE = BIT12 :DRIVE TIMING ERROR 
561 004000 Wie = BIT11 sWRITE LOCK ERROR 
< 002 IAE = BIT10 : INVALID ADDRESS ERROR 
563 001000 AOE = BITQ9 sADDRESS OVERFLOW ERROR 
564 0004 HCRC = BITO8 sHEADER CRC ERROR 
565 000200 HCE = BITO?7 sHEADER COMPARE ERROR 
5 000100 ECH = BITO6 ECC “'HARD’' ERROR 
507 000040 WCF = BITO5 sWRITE CLOCK FAILURE 
568 000020 FER = BIT04 ;FORMAT ERROR 
569 000010 PAR = BITOS ;PARITY ERROR 
570 000004 RMR = BITO2 sREGISTER MODIFICATION REFUSED 
$71 000002 ILR = BITO! : ILLEGAL REGISTER 
256 000001 ILF = B1T00 : ILLEGAL FUNCTION 
574 115760 NDTMSK = DCK!DTE!WLE!AOE!HCRC'!HCE!ECH!WCFIFER 
575 :‘ NDTMSK"' IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA \ 
259 : COMMANDS, I.E... HOUSEKEEPING AND POSITIONING COMMANDS 
75 2*RMAS ATTENTION SUMMARY REGISTER 
a 000377 ATNMSK = 577 ;MASK FOR ATTENTION BITS ° 
oat z*RMLA LOOK AHEAD REGISTER 
5 
584 CO02000 SC4 = BIT10 :SECTOR COUNT = 16 
585 001000 $c3 = BITO9 sSECTOR COUNT = 8 
586 000400 SC2 = BITO8 — gSECTOR COUNT = 4 
58/ 090200 $c] = BITO7 :SECTOR COUNT = 2 
eae 000100 SCO = BITO6 :SECTOR COUNT = 1 
oor 003700 SCTMSK = 003700 :SECTOR COUNT MASK 
ot :*RMMRi MAINTENANCE REGISTER #1 
594 sWRITE ONLY BITS 
595 100000 DBCK = BITS ;DEBUG CLOCK 
596 0000 DBEN = BIT14 :DEBUG CLOCK ENABLE 
597 20000 DEBL = 81113 _. ;DIAGNOSTIC END OF BLOCK 
598 010000 DTO = BITT2 sDIAGNOSTIC TIMEQUT 
599 004000 MCi_K = BIT11 ;MAINTENANCE CLOCK 
600 2000 MRD = BIT10 sREAD DATA 
601 001000 MUR = BITOS9 ;UNIT READY 
602 00 MOC = BITO8 :ON CYLINDER 
603 000200 MSER = BIT07 > SEEK ERROR 
604 000100 MDF = BITO6 sDRIVE FAULT 
605 C00040 MS = BITOS : SECTOR PULSE 
000010 MwP = BITOS ;WRITE PROTECT 
607 000004 MI] = BITO2 ; INDEX PULSE 
608 000002 MSC = 81101 SECTOR COMPARE 
+4 000001 DMD = BITOO :DIAGNOSTIC MODE 
611 sREAD ONLY BITS 
612 100000 = BITS sOCCUPIED 


CZRMMBO RMOS/3/2 FCINL TST 1 
RM REGISTER BIT DEFINITIONS 


| 
| 
| 662 
| 


020024 
024024 


010000 
004000 
002000 
060200 


001777 


100000 
040000 
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RG = BIT14 ;RUN AND GO 
FAL = BIT13 sEND OF BLOCK 
RE X = BIT12 sEXCEPTION 
ESRC = BIT11 ZENABLE SEARCH 
PLFS = BIT10 :LOOKING FOR SYNC 
ECRC = BITU9 sENABLE CRC OuT 
PDA = BITO8 :DATA AREA 
PHA = BITO7 “HEADER AREA 
CONT = BITO6 ; CONTINUE 
we = BITOS * WORD CLOCK 
EECC = BITO4 * ENABLE ECC OUT 
MwD = BITO3 WRITE DATA BIT 
LS = BITO2 ;LAST SECTOR 
LST = BITO1 ;LAST SECTOR AND TRACK 
DMD = BITOO ;DIAGNGSTIC MODE 
*RMDT DRIVE TYPE REGISTER 
NSA = BIT15 ;NOT SECTOR ADDRESSED = 0 
TAP = BIT14 : TAPE DRIVE = 0 
MOH = BIT13: “MOVING HEAD = 1 
DRQ = BIT11 DRIVE REQUEST REQUIRED 
SNGPRT = 020024 Z;SINGLE PORT DRIVE TYPE (¢RMO2) 
DULPRT = 024024 ;DUAL PORT DRIVE TYPE (RMO2) 
s=RMOF OFFSET REGISTER 
FMT16 = BITI2 3:16 BIT WORD FORMAT 
ECI = BITI1 sECC INHIBIT 
HC J = BIT10 HEADER COMPARE INHIBIT 
OF D = BITO7 ;OF FSET FORWARD 
:*RMDC DESIRED CYLINDER ADDRESS REGISTER 
CYLMSK = 001777 ;MASK FOR CYLINDER ADDRESS 
:*RMMR2 MAINTENANCE REGISTER #2 
ou ONLY BITS 
= BIT15 ;PORT A REQUEST 
nae = BIT14 PORT B REQUEST 
TAG = BIT13 ;TAG CONTROL 
TST = BITI2 ; COMMAND SEQUENCE TEST 8IT 
CC = BIT11 : CONTROL OR CYLINDER TAG 
CH = BJT10 ; CONTROL OR HEAD TAG 
8B09 = BITO9 ; TAG BUS 
BBO8 = BITOS8 ; TAG BUS 
BRO7 = BITO7 ; TAG BUS 
BB06 = BIT06 3 TAG 8US 
BBO5 = BITOS ; TAG BUS 
BROS = BITO4 ; TAG BUS 
BBO3 = BITO5 ; TAG BUS 
BBO2 = BITO2 ; TAG BUS 
BBO] = BITO! ;TAG BUS. 
BBOO0 = BITOC : TAG BUS 


H 3 
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RM REGISTER BIT DEFINITIONS 


665 :*RMER2 ERROR REGISTER 2 
4 
665 100000 BSE = BIT15 BAD SECTOR ERROR 
666 040000 SK] = BI]T14 :SEEK INCOMPLETE 
667 020000 OPE = B]T13 : OPERATOR PLUG ERROR 
010000 Ivc = BIT12 ; INVALID COMMAND ERROR 
669 04000 LSC = BIT11 :LOSS OF SYSTEM CLOCK 
670 002000 LAC = BIT10 “LOSS OF BIT CLOCK 
671 000200 pvc = BITO7 ;DEVICE CHECK 
672 000010 DPE = BITO3 :DATA PARITY ERROR 
oc .SBTTL PROGRAM MNEMONICS 
676 100000 MSE = BIT15 ;MANUSACTURING DETECTED SECTOR ERROR 
of 040000 USE = BIT14 ;USER DETECTED SECTOR ERROR 
679 .SBTTL RM REGISTER INDEX VALUES 
681 000000 RMCS1 = 00 sCONTROL STATUS REGISTER #1 
682 000006 RMDA = 06 :DISK ADDRESS REGISTER 
683 012 RMDS = 72 zDRIVE STATUS REGISTER 
000014 RMER1 = 14 :ERROR REGISTER #1 
685 000016 RMAS = 16 sATTENTION SUMMARY REGISTER 
000020 RMLA = 20 :LOOK AHEAD REGISTER 
687 000024 RMMR1 = 24 :MAINTENANCE REGISTER 
000026 RMDT = 26 DRIVE TYPE REGISTER 
689 000030 RMSN = 30 ; SERIAL NUMBER REGISTER 
690 032 RMOF «= §2 :OF FSET REGISTER 
691 000034 RMD C = 34 ;DESIRED CYLINDER REGISTER 
692 000036 RMHR = 36 sHOLDING REGISTER 
693 000040 RMMR2 = 40 >MAINTENANCE REGISTER #2 
694 000042 RMER2 = 42 ERROR REGISTER #2 
695 000044 RMEC1 = 44 ' 3ECC POSITION REGISTER 
696 000046 RMEC2 = 46 sECC PATTERN REGISTER 
699 000050 ILRG5O = 50 : ILLEGAL REGISTER 50 
000052 ILRGS2 = 52 : ILLEGAL REGISTER 52 
000054 ILRGS4 = 54 > ILLEGAL REGISTER 54 
000056 ILRG56 = 56 : ILLEGAL REGISTER 56 
000060 ILRG6O = 60 : ILLEGAL REGISTER 60 
000062 ILRG62 = 62 ILLEGAL REGISTER 62 
000064 ILRG64 = 64 : ILLEGAL REGISTER 64 
00006 ILRG66 = 66 : ILLEGAL REGISTER 66 
900070 ILRG70 = 70 ; ILLEGAL REGISTER 70 
000072 ILRG72 = 72 ; ILLEGAL REGISTER 72 
000074 ILRG74 = 74 : ILLEGAL REGISTER 74 
mn 000076 ILRG76 = 76 : ILLEGAL REGISTER 76 
a 000077 IDXMSK = 77 :MASK FOR REGISTER INDEX NUMBER 
ie SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
we 7*RMCS1 CONTROL STATUS REGISTER #1 
707 100000 SC = BIT15 : SPECIAL Coes JON-READ ONLY 
708 040000 TRE = BIT14 : TRANSFER 
709 020000 MCPE = BIT13 >MASSBUS CONTROL BUS PARITY ERROR=READ ONLY 
710 002000 PSEL = BIT10 “PORT B SELECT 


Se NE REO 


_— ee cen ee: os 


a a ne a 


- = a eran nee 
_ 
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001000 
000400 


000007 


100000 
040000 
020000 


176700 
120254 


sUNIT SELECT MASK 


UNTMSK 


>*RMCS3 


RMBAE 
RMCS 3 


ABASE 
AVECT? 


BIT99 
B1T08 
BIT07 
BITO6 


.. 2 
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SEQ 0054 


sADDRESS EXTENSION 
sADDRESS EXTENSION 
sREADY-READ ONLY 

: INTERRUPT ENABLE 


RH CONTROL STATUS REGISTER #2 


wend th on WW na a a i te a 


7 


:DATA LATE=READ ONLY 


WRITE CHECK ERROR-READ ONLY 


sUNIBUS PARITY ERROR 

sNONEXISTANT DRIVE=READ ONLY 
sNONEXISTANT MEMORY=READ ONLY 

sPROGRAM ERROR=READ UNLY 

sMISSED TRANSFER 

sMASSBUS DATA BUS PARITY ERROR=READ ONi Y 
sOUTPUT READY-READ ONLY 

; INPUT READY-READ ONLY 

:CONTROLLER CLEAR 


sPARITY TEST 
:UNIBUS ADDRESS INCREMENT INHIBIT 
sUNIT SELECT 
sUNIT SELECT 


[UNIT SELECT 


sUNIT SELECT MASK 


RH70 CONTROL STATUS REGISTER #3 


sADDRESS PARITY ERROR 
:DATA PARITY ERROR HIGH WORD 
:DATA PARITY ERROR LOW WORD 


sWRITE CHECK ERROR HIGH WORD 
sWRITE CHECK ERROR LOW WORD 


;DOUBLE WORD TRANSFER 


E 
; INVERT PARITY CHECK 
; INVERT PARITY CHECK 
s INVERT PARITY CHECK 
7 INVERT PARITY CHECK 


RH CONTROLLER REGISTER INDEX VALUES 


176700 
120254 


;CONTROL, STATUS REGISTER #1 
:WORD COUNT REGISTER 

;BUS ADDRESS REGISTER 
:CONTROL, STATUS REGISTER #2 
:DATA BUFFER 

:BUS ADDRESS EXTENSION 
;CONTROL, STATUS REGISTER #3 


;UNIBUS ADDRESS 
;UNIBUS VECTOR ADDRESS AND PRIORITY 


ee ee ee —, 


_-———_———- 
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a 


2 
3 
6 
5 


6 
7 
8 


000174 
000176 


000200 
000204 


000046 
000052 


000024 


BEERS 
2333885 


000000 


000174 
000000 
000000 


000137 
000137 


000210 


000210 
001100 


001100 


001100 


000000 
001222 


005422 
005412 


J 5 
MACRO VO4.00 4-APR-81 11:43:28 PAGE 5 


-SBTTL TRAP CATCHER 


=0 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A **, #2, HALT" 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
rbeoescgeansic : CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


=174 
DISPREG: “WORD C 2zSOFTWARE DISPLAY REGISTER 
SWREG: -WORD 0 22SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
JMP @A START 
JMP @ASTART I 
-SBTTL ACT11 HOOKS 


:¢JUMP TO STARTING ADDRESS OF PROGRAM 
: CHANGE RH/RM BUS ADDRESS 


FREER EEE AREA EER ERATE EERE RARER EREREAREER AREER EEE 


“HOOKS go og BY ACT11 


vPC=. :SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN 
“WORD 0 ::2)SET LOC. 352 TO ZERO 
" =$SVPC «RESTORE P 


-=1100 
-SBTTL APT PARAMETER BLOCK 


SL RAKE RARER ERE RE REE ERK RRR RRR EEE KARE REE REE KER ERE 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

DOI IIO IIIS IOI ER ER it 
. $X=. 3;SAVE CURRENT LOCATION 
~=24 ;sSET POWER FAIL TO POINT TO START OF PROGRAM 
200 :zFOR APT START UP 
-=44 :;POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 


tthe ee eee eee RRR RRR REREEEES ESE SESE SESE SESS SECS SESS SLOSS eS CO 


: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


$APTHD: 

$HIBTS: .WORD 0 
SMBADR: .WORD $MAIL 
S$TSTM: .WORD 20. 
SPASTM: .WORD 20. 
SUNITM: .WORD 20. 

nica -WORD $ETEND- shitty 2 ZZ LENGTH MAILBOX-E TABLE (WORDS) 
TA =. 


:;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
;zRUN TIM OF LONGEST TEST 


. SEOP 


i TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


er ee EEE Oe eee EL 


Fe gl ee FCTNL TST 1 


COMMON | 


0 


essesssssess 
MOB SNONALS 


ek med eed cd ed eed eed wed eed ed weed nd 
rtp et AY pet eng 


C011 36 


001114 


000000 


377 


000 


_— a 
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377 


~SBTTi 


SCMTAG: 


$AUTOB: . 
SINTAG: 


SWR : 
DISPLAY: | 


$TKS: 


COMMON TAGS 


23 ff eee eee eR RRR RRR RES E SEES ESSE ESS OOSLOSCSLSC. © © 8 2 ee ee 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


. =TAGADR 


wlelelelelelelelelel lelelelelelelelea) 


a4 
4 
nS 
v 


wee ee 


y, + as Aiea hig 


::START OF COMMON TAGS 


3; CONTAINS THE TEST NUMBER 
:s CONTAINS ERROR FLAG 
;CONTAINS SUBTEST ITERATION COUNT 
>: CONTAINS SCOPE LOOP ADDRESS 
;: CONTAINS SCOPE RETURN FOR ERRORS 
i;CONTAINS TOTAL ERRORS DETECTED 
3: CONTAINS ITEM CONTROL BYTE 
3: CONTAINS MAX. ERRORS PER TEST 
7: CONTAINS PC OF LAST ERROR INSTRUCTION 
3: CONTAINS ADDRESS OF ‘GOOD’ DATA 
3: CONTAINS ADDRESS OF 
3: CONTAINS GOOD" D DATA 


ON S DATA 
;;RESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


:zADDRESS OF SWITCH REGISTER 
; sADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
:;; TTY KBD BUFFER 
:sTTY PRINTER STATUS REG. ADDRESS 
::TTY PRINTER BUFFER REG. ADDRESS 
:s CONTAINS NULL CHARACTER FOR FILLS 
:: CONTAINS # OF FILLER CHARACTERS REQUIRED 
+2 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
; "TERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
; 3USER DEF INED 


E 
- sUSER DEF INED 
:sMAX. NUMBER OF ITERATIONS 
sESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
; sQUESTION MARK 
3 ee RETURN 
;sLINE FEED 


FREAK TERE ERERER AREER EERE 


* SBTTL APT MAILBOX~E TABLE 


CLARE KAA AAAAEEEEEE EE EEAAAREE ARREARS 


;APT MAILBOX 


EVEN 


$TESIN: 


. WORD 


AMSGTY 
AF ATAL Leer 
ATESTIN ;;TES 


ce 


: IMESSAGE. TYPE CODE 


ERROR NUMBER 


T NUMBER 


SEQ 0036 


essen 


er enn Ne ns teen namie 


LS cn ee meee | ne 


Lz 
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APT MAILBOX-ETABLE SEQ 0037 

001230 000000 S$PASS: .WORD APASS 3zPASS COUNT 
001232 000000 $DEVCT: .WORD ADEVCT : DEVICE COUNT 
001234 000000 SUNIT: .WORD AUNIT . UNIT NUMBER 
001236 000000 SMSGAD: .WORD AMSGAD : :MESSAGE ADDRESS 
9001240 000000 SMSGLG: .WORD AMSGLG 5 a LENGTH 
0012462 SETABLE: 3;APT ENVIRONMENT TABLE 
001242 000 SENV: BYTE AENV ENVIRONMENT BYTE 
001243 000 SENVM: .BYTE AENVM  ;;ENVIRONMENT MODE BITS 
001244 000000 $SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001246 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 
001250 Q00000 $CPUOP: .WORD ACPUOP ;; TYPE ,OPTIONS 

:* BITS 15=-11=CPU TYP 


E 
11/04=01,11/05=02,11/20=93,11/40=04,11/45=05 





**® 
:* 11/70=06.PDQ=07,0=10 
;* BIT 10=REAL TIME CLOCK 
7* BIT 9=FLOATING POINT eon 
;* BIT 8=MEMORY MANAGEMENT 
001252 000 SMAMS1: BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
001253 000 SMTYP1: .BYTE AMTYP1 ;;MEM, TYPE, BLKA1 
3* MEM. TYPE BYTE -~- (HIGH BYTE) 
;* 900 NSEC CORE=001 
:* 300 NSEC BIPOLAR=002 
3* 500 NSEC MOS=003 
001254 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS .RLKA1 
;* MEM.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF ‘’TYPE’’ AROVE 
001256 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 
001257 000 SMTYP2: .BYTE AMTYP2 ;;MEM. TYPE .BLK&2 
001260 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS. BLK#2 
001262 000 SMAMS3: .BYTE AMAMS3 ;:;HIGH ADDRESS.M.S.8YTE 
001263 000 SMTYP3: .BYTE AMTYP3 ;::MEM.TYPE,BLK&3 
001264 000000 SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS. BLK&3 
001266 000 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
001267 000 SMTYP4: .BYTE AMTYP4 ::MEM. TYPE .BLK&<4 
001270 000000 SMADR4: .WORD AMADR4 eerie ADDRESS .BLK&4 
001272 120254 SVECT1: .WORD AVECT1 :;: INTERRUPT VECTOR#1.BUS PRIORITY#1 
001274 $VECT2: .WORD AVECT2 : : INTERRUPT VECTOR#2BUS PRIORITYA2 
001276 176700 SBASE: .WORD ABASE : ;BASE ADDRESS OF EQUIPMENT UNDER TEST 
000000 SDEVM: .WORD ADEVM VICE MAP 
001302 000000 $CDwl -WORD ACDwi1 * = CONTROLLER DESCRIPTION WORDA1 
001304 000000 $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORDA#2 
1306 000000 $DDWO: .WORD © ADDWO §;;DEVICE DESCRIPTOR WORD#O 
C01310 000000 $DDW1 -WORD ADDW1 ;;DEVICE DESCRIPTOR WORDA1 
001312 000000 $DDW2: .WORD ADDW2 ; ;;DEVICE DESCRIPTOR WORD#2 
001314 000000 $DDw3 . WORD ADDW3 ss CE DESCRIPTOR WORDA3 
0013516 000000 $DDW4 . WORD ADDW4 ;:DEVICE DESCRIPTOR WORD&4 
001320 000000 $DDW5: .WORD ADDW5S ;;DEVICE DESCRIPTOR WORDAS 
001322 000000 $DDW6: .WORD ADDW6 ::DEVICE DESCRIPTOR WORD&6 
001324 000000 $DDW7: .WORD ADDW7 DEVICE DESCRIPTOR WORDA7 


LL LE ene ti tt a ty ta ae wee = ee. eee 


-_-—— eR ee —— 
ee Sr re nes eee ee ee + 


NN Nn 


CZ7RMMBO RMO5/3/2 FCTNL TST 1 


USER DEFINED TAGS 


ee oe 


001410 


SESSBBBSEEEE 
Eenaeeaee nes 


000000 
000000 


000 
000 


.SBTTL USER DEFINED TAGS 
CHGADR : 


XXDP: 


tSTRK: 


. WORD 
. WORD 


-BYTE 
-BYTE 


) 
) 


0 
0 


M 3 
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; CHANGE RH/RM BUS ADDRESS = -1, NO CHANGE = 0 
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
; THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 


= "*XXDP! DEVICE CODE FOR THE RMOS/3/2. 
:LO BYTE = 0 


>HI] BYTE, CONTAINS vv" TRACK ADDRESS OF UNIT 
[UNDER TEST. RMO2/3 = , RMOS = 18. 


:THE REGISTER INPUT BUFFER IS USED FOR 


;STORING DRIVE STATUS 

GE TBUF : 

sREGISTER INPUT BUFFER 
. WORD 


RMCS1I 


- WORD 


6 J e s a a J e & s e 2 2 e si 
J — 
welelelalelelelelelelelelelelelelelelelelela) 


:CONTROL, STATUS REGISTER #1 
:WORD COUNT REGISTER 

;BUS ADDRESS REGISTER 

:DISK ADDRESS REGISTER 


:CONTROL, STATUS REGISTER #2 
:DRIVE STATUS REGISTER 
sERROR REGISTER #1 


:ATTENTION SUMMARY REGISTER 
;LOOK AHEAD REGISTER 

:DATA BUFFER 

;MAINTENANCE REGISTER #1 


: DRIVE TYPE REGISTER 


:DESIRED CYLINDER REGISTER 


sHOLDING REGISTER 


:MAINTENANCE REGISTER #2 
sERROR REGISTER #2 

:ECC POSITION REGISTER 

;ECC PATTERN REGISTER 

;BUS ADDRESS EXTENSION REGISTER 
; CONTROL, STATUS REGISTER 43 


; THE REGISTER OUTPUT BUFFER IS USED FOR 
:ASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 

ZREGISTER OUTPUT BUFFER | 

RMCS10: -WORD 0 ;CONTROL, STATUS REGISTER 41 
RMWCO: WORD 0 WOR COUNT REGISTER 

RMBAO: .WORD 0 BUS ADDRESS REGISTER 
RMDAO: .WORD 0 ;DISK ADDRESS REGISTER 
RMCS20: .WORD 0 = CONTROL, STATUS REGISTER &2 
RMDSO: .WORD 0 sDRIVE STATUS REGISTER 
RMER10: .WORD 0O sERROR REGISTER #1 

RMASO: .WORD 0 sATTENTION SUMMARY REGISTER 
RMLAO: .WORD O ;LOOK AHEAD REGISTER 

RMDBO: .WORD O ;DATA BUFFER 

RMMR10: .WORD 0 MAINTENANCE REGISTER 41 
RMDTO: .WORD OQ :DRIVE TYPE REGISTER 


SEQ 0038 


- - eed ee EL Ee 
- 


C 


7RMMBO 


USER DEF 


: 


SSSSSsssee k 
RSeKNsEREE < 


001514 


001545 


43/2 FCIML TST 1 
AG 


000000 
000000 


00000 


MACRO VO4.00 4-APR-B1 11:43:28 


RMSNO- .WORD 0 
RMOFO:- WORD 0 
RMDCO: .WORD 0 

: .WORD 0 

: .WORD 0 
RME : .WORD O 
RMEC10: .WORD 0 
RMEC20: .WORD OC 

: .WORD 0O 
RMCS30: .WORD 0 


nN 3 
PAGE 7-1 
SEQ 0039 


> SERIAL NUMBER REGISTER 
sOFFSET REGISTER 
DESIRED aetieten REGISTER 


>ECC POSITION REGISTER 

sECC PATTERN REGISTER 

:BUS ADDRESS EXTENSION REGISTER 
>CONTROL, STATUS REGISTER #3 


EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
[THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 


[FIRST WORD CONTAINS THE ADDRESS 
ce ZERO WORD IS A BLANK AND REPRESENTS THE 


7IN THE TABL 

sEND OF THE 

TSTQUE: .WORD 0 
-BLKkw 8. 
-WORD 0 

CL : .WORD 0 

CLKVCT: .WORD 0 


S OF THE DEVICE UNDER TEST 


oer ae DEVICE POINTER 


; TABLE TERMINATOR GOES HERE WHEN 
sALL 8. DEVICES ARE UNDER TEST. 


:UNIBUS ADDRESS OF KW11 CLOCK 
:VECTOR ADDRESS OF KW11 CLOCK 


; THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 


;ARE READ BY THE GET SUBROUTINE. 


3;A NEGATIVE BYTE. 
GETINX: .BLKB 23. 


THE LIST IS TERMINATED BY 
7GET INDEX TABLE 


THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 


ZARE vi Hg ha PUT SUBROUTINE. 


A_NEGATIVE 
BUT INX: -BLKB 23. 


:PUT TAGS HERE 


THE LIST IS TERMINATED BY 
sPUT INDEX TABLE 


B 4 
[AMM HAS /3/2 $C TM TST 1 MACRO WOC.00 <-APR-81 11:43:28 PAGE 8 
FRMOM POINTER Tape 


-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION eS eee ool THAT CAN OCCUR, 


:*THE INFORMATION IS OBTAINED BY USING T X NUMBER FOUND IN 
z*LOCATION SITEMB. THIS NUMBER INDICATES we ITEM IN THE TABLE IS PERTINENT. 


7 *NOTET: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SE 
z *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
z* Em» sPOINTS TO THE ERROR MESSAGE 
> hes DH : POINTS TO THE DATA HEADER 
3° DT zZ:POINTS TO THE DATA 
3* DF >:POINTS TO THE DATA FORMAT 
001572 SERRITR: 
zERROR #1 WRONG UNIT SELECTED 
1572 726 EMT 1 
1574 oF 3 EHT1 
ab Sree ot 
6 
; ZERROR 2 DEVICE WENT UNAVAILAARLE 
1602 725 EMT2 
1602 093989 NT 
| Be 56 EDT! 
16] 73546 EFT? 
/ 
8 ZERROR 3 DEVICE WENT NONEXISTENT 
1612 7260 EMT3 
1614 $32 EMT] 
1628. 98sec BPH 
10 
1D SERROR 4 CONTROLLER NOT READY 
1622 A EMTG 
1624 3830 FHT? 
1 73456 EDT1 
16 73546 EFT 
18 
2 ERROR 5 DRIVE NOT READY AND GO NOT RESET 
0016 ? EMTS 
1634 O38 FHT] 
16 73456 | EDT? 
1640 073546 EFT? 
3 sERROR 6 UNEXPECTED VALUF FOR “‘ATA’* STATUS 


LOL i —e 





SL A ah — ~ 


1 eee eee 


Cc 4 
CZ7RMMBO 8M05/3/2 FCTML TST 1 MACRO YOS.00 “4-A4PR-81 11:43:28 PAGE B-1 
ERROR POINTER TABLE 


18 
001642 302 EMT6 
001644 g 3335 FHT 
001646 Or aa7e EDT 
901650 073546 FFT? 
19 
9 zERROR 7 BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 
001652 067310 EMT7 
001654 OCOC00 0 
001656 0600000 0 
001660 000000 0 
3 | 
$2 z:ERROR 10 DRIVE NOT READY 8UT GO IS RESET 
001662 067316 EMT10 ae 
001664 073332 FHT1 
C01666 073456 EDT1 
001670 073546 EFT? 
25 
$$ zERROR 11 GO NOT RESET BUT DRIVE IS READY 
001672 067322 EMT 11 | 
001674 073332 EHT1 
001676 073456 EDT1 
001 073546 EFT? 
28 ? 
¥ ERROR ‘12 INCORRECT FUNCTION CODE 
001 703 067326 EMT12 
001704 073332 EHT1 
001706 073456 EDT1 
001710 073546 EFT 
1 
sERROR 13 PARITY ERROR READING REMOTE REGISTERS 
001712 067334 EMT13 | 
001714 073332 FHT? 
001716 073456 EDT! 
001720 073546 EFT] . 
5 | 
3 sERROR 14 TRANSFER ERROR IS INCORRECT 
001722 067346 EMT14 
301956 | gosase ae 
D 
bo1786 073546 EFT 
37 
e sERROR 15 INCORRECT WORD COUNT 





OT AR A ee ee 


—_ ae 


ee ee ee ES tetas — 


D 4 
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FRROR POINTER TABLE 


001752 067354 EMT15 
001734 073332 EHT? 
001736 073456 FDT1 
001740 073546 EFT 
40 | 
) ERROR 16 INCORRECT BUS ADDRESS 
001742 067362 ) EMT16 
001744 073332 EHT1 
091746 0673456 EDT? 
001750 073546 EFT1 
43 
4 :ERROR 17 INCORRECT LBT STATUS 
001752 067372 EMT17 
001754 073332 EHT1 
001756 073456 EDT] 
601760 073546 EFT 
46 : 
44 :ERROR 20 INCORRECT AOE 
001762 067402 EMT20 
001764 073332 EHT? 
001766 073456 EDT1 
001770 073546 EFT 
49 
44 zERROR 21 INCORRECT DISK ADDRESS 
1 
001772 067412 EMT 21 
001774 073332 EHT1 
001776 073456 EDT 
073546 EFT 
$2 
$7 ZERROR 22 INCORRECT CYLINDER ADDRESS 
002002 067422 EMT22 ~ 
002004 073332 EHT? 
002006 073456 EDT] 
002010 073546 EFT1 
55 
36 ZERROR 23 INCORRECT WLE STATUS 
002012 067432 EMT 23 
002014 073332 FHT1 
002016 073456 EDT] 
002020 0673546 EFT 
58 ) 
59 ERROR 24 INCORRECT UPE STATUS 


002022 067442 EMT 24 


ree eerie. sst-ctteratiesnneenee 


RE 


E 4 
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FRROR POINTER TABLE 


002024 073332 EMT 
002026 073456 EDT 
0020 073546 FFT 
é1 | 
66 ERROR 25 INCORRECT wCF STATUS 
002032 067452 EMT25 
2034 073332 EHT1 
002036 073456 EDT1 
002060 673546 EFT1 
64 
= sERROR 26 INCORRECT wCE STATUS 
002042 067462 EMT 26 
002044 073332 _ EHTI 
002046 073456 EDT1 
002050 073546 EFT? 
67 
oS ERROR 27 INCORRECT MDPE STATUS 
002052 067472 EMT27 
002054 073332 EHT1 
002056 073456 ECT! 
060 073546 EFT 
70 
a ERROR 30 INCORRECT DCK STATUS 
002062 067502 EMT 30 
073332 FHT] 
073456 EDT] 
002070 073546 EFT! 
73 : 
. :ERROR 31 _ INCORRECT ECH STATUS 
002072 06751 EMT 31 
002074 073332 FHT1 
002076 073456 EDT1 
002100 073546 FFTI 
76 7 
a ERROR 32 DLT SHOULD NOT BE SET 
002102 067522 EMT 32 
2104 073332 EHT) 
002106 073456 EDT? 
002110 073546 EFT 
79 
80 ERROR 33 MXF SHOULD NOT BE SET 
OV2112 067532 EMT 35 
002114 073332 FHT? 





Seen = . 


SO ee rere een eee EE 
CC CC teeter ae 


ee 


002116 
002120 


CZRMMBO RMOS/3/2 FCINL TST 7 
ERROR POINTER TABLE 


072456 
073546 


073546 


067552 
073332 
073456 
073546 


067562 
073 

073456 
073546 


z ERROR 


Zz ERROR 


sERROR 


: ERROR 


Z ERROR 


sERROR 


F 4 
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34 DTE SHOULD NOT. BE SET 


35 INCORRECT HCRC STATUS 


36 INCORRECT HCE STATUS 


37 INCORRECT FER STATUS 


40 DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


47 ss LOST *MOL"' DURING PACK ACKNOWLEDGE 


42 UNSAFE ERROR DURING PACK ACKNOWLEDGE 


— — ee owe so ERS a tere 


TRMMBO 8M05S/35/0 FC TN 7 


ERROR PUINTEN TABLE 
002210 073546 


56 
4 


wis WwOS 
WN 
Mm 


008800 073546 


ZERROR 


: ERROR 


: ERROR 


; ERROR 


: ERROR 


ZERROR 


ZERROR 


a EE EE tm ee 


! G 4 
PB’ 17:44:28 PAGE B-5 


“OPI"* ERROR DURING PACK ACKNOWLEDGE 


"“'RMR'* ERROR DURING PACK ACKNOWLEDGE 


“"ILR'’ ERROR DURING PACK ACKNOWLEDGE 


“"ILF'’ ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS JS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT I4E STATUS DURING SEEK COMMAND 


ee ELLE _ 


SK Le LS A tt Te et te 


TRYMBO RMOS/5/2 FC TM TST 7 


PRROR POINTER TABLE 


~ —_———— ke ee me ce 


073456 
07354 


073456 


" ; ERROR 


: ERROR 


; ERROR 


s ERROR 


H 4&4 
MACRO YO6.00 4-A4PR-8? 71:43:28 PAGE 8-6 
st UY USGS 


OPI ERROR DURING SEEK - MEDIUM IS NOY ON LINE 


OPI ERROR DURING SEEK - MEDIUM IS ON LINE, ASSUME 
ON CYLINDER LATCH DIDN'T RESET 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


‘DEVICE CHECK DURING SEEK COMMAND 


PIP IS STILL SET AFTER SEEK = SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


ivC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 


a ee oA Ate tree ae 


Pr we rw we 
, 
’ 


I 4 
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FRAOR POINTER TABLE 


002370 673546 eet? 


148 SFREOR 61 ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
149 : VOLUME VALID IS STIL SET 


902372 aso EMT61 

002374 073342 EHT 
eh Ooaeze EDT1 
4 073546 


; REPORTED DURING SEEK COMMAND 


40 970066 EMT62 
$2 073332 FHT? 
$s 073656 EDT1 

4 073546 EFT? 


151 
124 ZERROR 62 MOL IS ZERO. BUT OPI WAS NOT 
154 


ERROR 63 UNUSED 
;ERROR 64 DRIVE DID NOT DETECT ‘'IVC’* ERROR DURING SEEK 
sERROR 65 DRIVE EXECUTED A SEEK WITH ERROR SET 


sERROR 66 UNEXPECTED ERROR SET IN RMERT 


88 EMT66 
oe FHT? 
002446 073456 EDT! 


450 073546 EFT? 





168 ERROR 67 UNEXPECTED ERROR SET IN RMERZ 
S2 07015¢ EMT67 
5ogse5 


ee ere ee eee _ - 


ot ee 


“LRMMBO AMOS/3/2 FCING TST 1 


FRROR POINTER TABLE 


00868 5788ce 


Neo-o 
OO er 


56 


7343s 
0736' 
073546 


783s 





7 ERROR 


z ERROR 


z ERROR 


; ERROR 


SERROR 


sERROR 


Jj 4 
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ERRONEOUS ““IAE"’ ERROR DURING RECALIBRATE 


““ILF"* ERROR DURING RECALIBRATE 


“OPI'" ERROR DURING RECALIBRATE DUE TO ‘MOL’ = 0 


‘OPI’ ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


“TVC’* ERROR DURING RECALIBRATE ~ ‘'vv"' = 0 


ERRONEOUS “"IVC’’ ERROR DURING RECALIBRATE ~ ‘‘v’' = 1 


““SKI"" ERROR DURING RECAL IBRATE 


eS -- t seseenanc —— —— _——— 


CZRMMBO RMOS/3/2 FCINL TST 


ERROR POINTER TABLE 


002546 073456 
002550 073546 


ee 


002602 
002604 
606 


073546 


070314 


073546 


070332 


073546 


070350 


073546 


070360 


073546 


070372 


073546 


070410 


073332 
073456 


« 





K 4 
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: ERROR 


:ERROR 


: ERROR 


: ERROR 


> ERROR 


: ERROR 


; ERROR 


103 


104 


“DVC"" OCCURRED DURING RECALIBRATE 


LOST *“MOL"’ DURING RECALIBRATE = ‘OPI'' = 9 


‘'VV"" DURING RECALIBRATE = ‘'IVC'' = 0 


LOST 


“ATA’’ DID NOT SET DURING RECALIBRATE 


A 


‘‘OM'" DID NOT RESET DURING RECALIBRATE 


"PIP’’ IS STIL SET AFTER RECALIBRATE 


UNEXPECTED “‘ILR'’ ERROR DURING RECALIBRATE 


LLL I tt A tte Oe ee me ee i ————~ me Eh me 


ee, Re - — - 


Pete 


CZ7RMMBO RMO5S/3/2 FCTNL TST 1 
ERROR POINTER TABLE 


002640 073546 


219 
220 


221 


073546 


070430 
073332 
073456 
073546 


070450 
073354 
073474 
073564 


073566 


070470 


070476 
000000 
000000 
090000 
070512 
073564 


073500 
073570 





; ERROR 


; ERROR 


; ERROR 


: ERROR 


Zz ERROR 


: ERROR 


ERROR 


EFT 


EMT107 
EHT] 


113 


Lt 64 
MACRO VO04.00 4=-APR=-81 11:43:28 PAGE 8-10 


UNEXPECTED *'RMR'' ERROR DURING RECALIBRATE 


"'UNS"" ERROR DURING RECALIBRATE = AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNISUS 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEQUT=NED STATUS FAILURE 


DEVICE NOT AN RMO5/3/2 


a ee 


CZRMMBO RMO5S/3/2 FCTNL TST 1 


FRROR POINTER TABLE 


002732 070520 


002740 073546 


002742 070530 


002750 073546 


002752 070540 


002760 073546 


002762 070550 


002770 073546 


070560 


003000 073546 


003002 070570 
004 


003006 
003010 073546 


2 070600 
4 073332 
6 073456 


3020 073546 


MACRO V04.00 4=-APR=81 


s ERROR 


s ERROR 


: ERROR 


s ERROR 


: ERROR 


: ERROR 


; ERROR 


115 


EMT175 


116 


117 


121 


: M 4 
11:43:28 PAGE 8-11 


RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


RMMR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


SEQ 0051 


_ a 


—— - —_—— : —_— — — 


CZRMMBO RMO5S/3/2 FCINL TST 1 


| ERROR POINTER TABLE 


ZERROR 


7 ERROR 


7 ERROR 


zERROR 


7 ERROR 


sERROR 


;ERROR 


124 


EMT124 


125 


126 


127 


130 


N 4 
MACRO VO4.00 4-APR-81 11:43:28 PAGE 8-12 


RMEC2 NOT INITIALIZED BY UNIBUS 


RMAR2 NOT INITIALIZED BY UNIBUS 


RMCS1 NOT CLEARED BY CONTROLLER CLEAR 
\ 
RMBA NOT CLEARED BY CONTROLLER CLEAR 
\ 
| 
RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


RMER1 NOT CLEARED BY CONTROLLER CLEA? 


RMAS NOT CLEARED BY CONTROLLER CLEAR 


—_—_— — .— —— ———— 


8B 5 
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278 
112 
£33114 
17 
12 
4 
80 
281 


172 

ae 
297 
298 


070726 
rus 
073546 


073546 


sERROR 


Z ERROR 


7 ERROR 


7 ERRUR 


; ERROR 


sERROR 


sERROR 


135 


137 


140 


141 


RMR NOT CLEARED BY CONTROLLER CLEAR 


RMDS NOT CLEARED BY CONTROLLER CLEAR 


RMEC2 NOT CLEARED BY CONTROLLER CLEAR 


I 


RMMR2 NOT CLEARED BY CONTROLLER CLEAR 


RMCS1 NOT CLEARED BY ERROR CLEAR 


RMCS2 NOT CLEARED BY ERROR CLEAR 


be i 


RMCS1 NOT CLEARED BY DRIVE CLEAR 


RMDS NOT CLEARED BY DRIVE CLEAR 


CZ7RMMBO RMO5S/3/2 FCINL TST 7 


FRROR POINTER T4RLE 


A ne te se = — 


07 
073546 


071042 


073546 


071052 


073546 


071072 


073546 


MACRO yO4.00 


ZERROR 


: ERROR 





4-4PR-81 


EMT142 


143 


144 


145 


146 


EMT146 
EHT1 
EDT] 


EFT 


147 


EMT147 
HT] 


: - 
11:43:28 PAGE 8-16 


RMERT NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMR 1 


NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR. 


MEDIUM NOT ON LINE 


Ss ee ere rere mrt cree eee ne 


- ee) cee ee eee ee 


CZRMMBO RMOS/3/2 FCINL TST 1 


FRROR POINTER TABLE 


A 
RO 

— 
~ 


SLT EE SS SE AS ee 


671102 
073332 
073456 
073546 


071114 


0 
073546 


071144 


073546 


071162 


073546 


071174 


073546 


077220 


7 ERROR 


s ERROR 


; ERROR 


> ERROR 


> ERROR 


> ERROR 


MACRO YO6.00 4-APR-81 


152 


153 


154 


155 


156 
EMT 156 
EHT1 


160 
EMT 160 


D 5 
11:43:28 PAGE 8-15 


DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET BY PACK ACK 
OFFSET MODE NOT SET BY OFFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND 


Se 


SEQ 0055 


e 3 
CZAMMBO RMOS/3/2 FCINL IST 1 MACRO VOS.00 S-APR-81 11:43:28 PAGE 8-16 
ERROR POINTER TABLE 


posses 978056 4 
003370 073546 EFT — 
ah 3 
22 zERROR 161 RMDA NOT RESET BY RIP COMMAND 
903372 071230 EMT 161 
pig Ee 073332 FRTT 
003376 073456 EDT1 
003400 673546 FFT 
345 
346 :ERROR 162 RMDC NOT RESET BY RIP COMMAND 
003402 971242 EMT162 
003404 073332 EHT1 | 
003406 073456 EDT1 
003410 073546 EFT? 7 
' 
348 
S) ERROR 163 DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
$29 ; WRITE BUFFER 
003412 073126 EMT 336 veal ll 1] 
MRP TAE: EDT ase ‘ 
00 2 073602 EFT336 | 
38 . \ 
¢; sERROR 164 OPI SHOULD NOT BE SET | 
003422 Ak EMT164 
003424 073332 EHT1 | | 
00 073456 EDT] : 
00 073546 EFT1 
355 
356 SERROR 165 IVC SHOULD NOT BE SET | 
003432 071272 EMT 165 : 
ier 073332 FHT] 
0034 073456 EDT? ‘oe ee 
003440 073546 FFTI i 
358 | | Si. 
369 ERROR 166 IAE SHOULD NOT BE SET ae 
300 %, | hit 
© 003442 071300 EMT 166 ) 
003444 073332 EHT1 | 
003446 073456 EDT] 
0034650 673546 FFT Ao 
861 i 
af SERROR 167 NEM SHOULD NOT BE SET iW 


LL LLL LE EE SO a ce et at te eae ca 


54 
00 
003460 


S558 
wee Te 1 | 
PI 
Law —> 2 —a» 


ITRMMBO 8MOS/3/2 FCINL TST 1 
FRROR POINTER TABLE 


071 $76 
073330 


Or eR TREE teenie om eet 


- ERROR 


: ERROR 


: ERROR 


Zz ERROR 


sERROR 


sERROR 


ZERROR 


MACRO YOS.00 4-APR-81 


ExT) 
EDT? 
EFTT 
170 


EMT170 


1717 
EMT171 
EHT] 
EDT] 
EFT 
172 


EMT172 


174 


176 
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o0ee6 073456 EDT1 cy ti 
003559 073546 £FTI . AT 
3a5 Hy {/ 
386 sERROR 177 = ==RESERVED FOR POWER MONITOR BIT FAILURE=~ |’ 
003552 000000 0 PMG 
003554 000000 0 natty | 
003556 060000 0 | | 
003560 000000 0 on} 
378 i i | 
: 229 sERROR 200 INCORRECT “PIP"' STATUS DURING DIAGNOSTIC move ‘ 
003562 071406 EMT 200 | ) i ot lt 
003564 073332 EHT 1 ta \ 
003566 073456 EDT1 | \ } 
003570 073546 EFT1 , it 
391 ae 
336 sERROR 201 INCORRECT 'WRL'' STATUS DURING DIAGNOST 1 MODE, \ {ht Ae 
003572 071420 EMT 201 | ree Lan 
003574 073332 EHT1 vty , i 
003576 073456 EDT iM i 
003600 073546 EFT1 ud Hi ‘| 
$94 iw ly ; ‘ Ny, fy 
393 sERROR 202 INCORRECT "'SKI'' STATUS DURING ptacmanit MODE | x ’ 
003602 071432 EMT 202 1 afl i - ri 
003604 073332 EXT] : qt ont aM, jo 
003606 073456 EDT it i i We 
003610 073546 EFT ! Ai 
397 . 7 
tos :ERROR 203 INCORRECT "DVC"" STATUS DURING DIAGNOSTIC MODE. ||! 
003612 071444 EMT 203 ‘| ! | 
003614 073332 EHT ay Sige ae 
003616 073456 EDT1 “ | Ly | 
003620 073546 EFTI TW 1 ee 
400 I ey I | 
401 ;ERROR 204 "v"" WAS NOT RESET BY MAINTENANCE ae my . is , 
003622 071456 EMT 204 ray | 
003624 073352 HT1 | 
003626 073456 EDT1 ih | 
003630 073546 EFT] Bows AL 3 
403 it | ) | 
404 sERROR 205 SELECTED DEVICE HAS A PERSISTENT “SKIMHERROR, 1) '/1 | 
003632 071474 EMT205 S a tal? 
003634 073352 EHT1 ; | ih | 
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‘LBC’ DID NOT SET DURING DIAGNOSTIC MODE 


UNEXPECTED LOSS OF ‘MOL"’ = MEDIUM IS OFF LINE 


UNEXPECTED LOSS OF VOLUME VALID - ‘Vv''= 0. 
UNEXPECTED MECHANICAL MOTION - 'PIP"'=1 | 
UNEXPECTED DEVICE FAULT - 'DVC'' = 1 
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ERROR POINTER TABLE | SEQ 0062 
470 :ERROR 233 UNUSED , 
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472 } ah 
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004400 073546 EFTI 
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274 sERROR 263 
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OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 
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(7RMMEO RMOS/37/2 FCTNL TST 1 
ERROR POINTER TABLE 
380 ZERO 
004542 O06 EMT276 
00454 Fa3e5 FHT) 
9045 073456 EDT1 
004550 073546 eFT* 
582 
583 zERROR 277 “OPI"’ ERROR DURING DATA TRANSFER BECAUSE 1) ON 
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314 DRIVE TIMING ERROR DURING DATA TRANSFER 
EMT314 , 


315 WRITE LOCK ERROR | 


316 ERRONEOUS WRITE LOCK ERROR 
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DATA CHECK ERROR DURING DATA TRANSFER 


, FORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRE CTABLE DATA CHECK ERROR DURING DATA TRANSFER 
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DATA PARITY ERROR DURING READ COMMMAND 
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DATA PARITY ERROR DURING WRITE COMMAND 
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if  debh i | . 
469 | : ZERROR 332 DATA LATE ERROR DURING DATA ‘RANSFER 
| 005102 073040 . \' 
i! ey 005104 | '073332 ey EMT 332 
[iii *!s 209106, 073456 | | EHT1 
| 005110 ' 073546 ; EDT) 
af! | EFT 
6m oe ae a ae} , 
O78 U é Ky “4 ERROR, 333 
a | peda! ores: wh yt | PIP STIL SET AFTER DATA TRANSFER = SkI = 0 
I | 1005114 \o73830 ate EMT333 
ee ch a os 
| on ? r — | \ of | EFT 
| 674 | | [i | 
| ho ged...” :ERROR 334 LOST MOL DURING DATA TRANSFER - OPI = 0 
Q 5122 ele : * 
Sige Gre ue 
| bee | 
0 £1 EDT 
|? 130), | 073546 EFT 
| 676 ) 
ras : ERROR 335 
e ; e LCST yf 
gre een CLUME VALID DURING DATA TRANSFER ~ IvC = 0 
| 005134 073332 } EMT 335 
tt onte 073456 EHT 1 
fe 005140 073546 | EDT! 
|! 679 | | 5 
rv SERROR 336 D 
: ATA R 
| 005142 073126 EAC DUES NOE SOMPARE MIiTH DATA WRITTEN 
005144 073414 EMT 336 
308180 973003 EDI 336 
fe 50 073602 : EFT 336 
683 | : 
005152 ‘lo73136 sERROR 337 WRITE CHECK ERROR NOT DETECTED 
005154 «073426 EMT 337 
005156 073522 EAT eas 
ve ' 073612 EF I337 
| | py) “ERROR 340 ; 
| 005162 073146 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 
| 005164 073414 EMT 340 : 
| | 008178 973608 EDT 336 
| =‘ 073602 EF 1336 
689 
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073160 
073414 
073512 
073602 


073166 
073546 
073200 
073332 


073456 
07354€ 


073212 
073440 
073532 
073622 


073224 
073332 
0753456 
073546 
073234 


073546 


073250 


073546 
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: ERROR 
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347 
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"TVC'" ERROR NOT DETECTED DURING DATA TRANSFER 


‘FER’ NOT DETECTED DURING DATA TRANSFER 


"HCE'’ NOT DETECTED DURING DATA TRANSFER 


BSE'* NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH = ‘“"IvC** = 0 
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| Pieces LE 


005266 
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005272 


005326 
005330 


724 | 
im 


I a a a a A 
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FRROR POINTER TABLE 


073262 
0 


073546 


073300 


073546 


073310 
000000 
000000 
000000 


0733514 
073452 
073544 
073632 


073324 
073332 
073456 
073546 
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ERROR 
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ATA’ DID NOT SET DURING SEARCH 


PROGRAM TIMEOUT WHILE TESTING RMLA 


LOOK AHEAD TEST FAILS 


BSE SHOULD NOT BE SET 


3PUT ERROR TABLE HERE 
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ERROR TABLE USAGE \ 


: .SBTTL ERROR TARLE USAGE 
z | ;THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR FACH ERROR 
: -' ;NUMBER, I.E., 
| c : 
| é : EMT = ERROR MESSAGE TABLE ADDRESS 
| ? : EHT = ERROR HEADER TABLE ADDRESS 
| 8 ; EDT = ERROR DATA TABLE ADDRESS 
| +2 ‘ EFT = ERROR FORMAT TABLE ADDRESS 
11 ;THE EMT ENTRY ISTHE ADDRESS OF’ THE TABLE OF ERROR MESSAGE STRINGS 
12 >FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
13 :OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
16 : TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
Lf, zNO MESSAGE TO BE TYPED FOR THE ERROR. 
17 ;SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 
18 :OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
19 : IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
20 :DATA, HUWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
21 sHEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 
22 ;BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
rf sMUST ALSO HAVE A FORMAT. 
25 : IN SUMMARY, 
26 : EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE. 
27 | : EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 


ee ‘ OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 





CZ7RMMBO RMO5/3/2 FCTNL 
ERROR TABLE USAGE 


MOMMY a Ss es 
WN OOD @ONAUFS WO 


005412 
005420 


C05422 


‘005440 


005444 
005446 
005452 
005454 


011600 


000417 


010046 
104402 
000240 


012737 
000402 


005037 


000005 


012706 


012737 


013746 


001012 
000403 


TST 1 


005346 


177777 


001326 
000000 


001114 
001154 


007100 


061650 
000 


005564 
005572 


000004 
005640 
177570 
177570 
177777 
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001326 


000020 


000026 
041460 


001131 
001122 
001124 


000004 


173320 


:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: 


. SBTTL 


START1: 


START: 


START2: 


-SBTTL 


7: CLEAR 


MOV 
:z INITIALIZE A FEW VECTORS 


MOV (SP) ,RO SAVE PC WHERE THE TIME OUT OCCURED 
TST =(RO) » ;ADJUST PC =2 
CMP (SP)+,(SP)+ sRESTORE STACK POINTER 
TYPE ,65$ ii TYPE ASCIZ STRING 
64$ sGET OVER THE <p 
ASCI2Z <CRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/ 
a RO,-(SP) ;SETUP FOR TYPING OUT PC 
NOP 70. "HALT(O)" INSTRUCTION HERE IF YOU WISH 


TO STOP ON UNEXPECTED TIMEOUT. 
START OF PROGRAM 


MOV #~1,CHGADR ; CHANGE RH/RM BUS ADDRESS 

BR START2 

WS CHGADR ;NG CHANGE IN ADDRESS 

INC #0 ;TTY LOOP, WAIT FOR INCREMENT 
BNE 74 ;OF WORD 

RESET sRESET THE WORLD 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS ($CMTAG) AREA 


MOV ASCMTAG,R :sFIRST LOCATION TO BE CLEARED 
CLR (R6) + +2 CLEAR MEMORY LOCATION 
CMP ASWR ,R6 20 

*6 LOOP “BACK 


IF NO 
#STACK, SP SETUP THE STACK POINTER 


MOV A#SSCOPE ,a#IOTVEC Ah VECTOR FOR SCOPE ROUTINE 
MOV #340, a#lOTVEC+2 scLEVEL 7 

MOV #SERROR , A#EMTVEC EMT VECTOR FOR ERROR ROUTINE 
MOV pee areMTVEC ss ssLEVEL 7 

a #STRAP , aA TRAPVE c+ ZTRAP_ VECTOR FOR TRAP CALLS 


#340, aa TRAPVEC#2: LEVE 
#SPWRON. @APWRVEC ; ;POWER FAILURE VECTOR 
#340 ,Q#PWRVEC+2 ;;LEVEL 7 
:zSETUP END-OF-PROGRAM COUNTER 


CLR $T IME ss INITIALIZE NUMBER OF ITERATIONS 

CLR $ESCAPE :¢CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1 , SERMAX :sALLOW ONE ERROR PER TEST 

MOV pe gt 8 is INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV PE UP THE art LOOP ADDRESS 


. SLPERR ET 
;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


-TEQUAL TO A st Gs 


SETUP FOR A SOFTWARE SWITCH REGISTER. 


MOV QAERRVEC,-(SP) ;;SAVE ERROR VECTOR 

MOV #64$,aMERRVEC ::SET UP ERROR VECTOR 

MOV #DSWR, SWR :;SETUP FOR A HARDWARE SWICH REGISTER 

MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

CMP #-1,aSWR ep TO REFERENCE HARDWARE SWR 

BNE 663 sBRANCH IF NO TIMEOUT TRAP OCCURRED 
*;AND THE HARDWARE SWR IS NOT = -1 

BR 65$ :BRANCH IF NO TIMEOUT 


seb 0075 


CZRMMBO RMOS/3/2 FCTNL TST 1 


INIT 


TALIZE THE COMMON 


012716 


000426 


005737 


112737 ' 


| 


005037 


000412 


005046 


TAGS 


005646 
000176 
000174 
000004 


001230 
000200 


001244 


005332 
000300 


177777 
041630 
005750 


000042 
001242 
001154 


000001 


001330 
000016 


000040 
000007 


001330 
000042 


0061 36 


001330 


MACRO V04.00 


001245 
001154 


000004 
000006 


000042 


000001 
900176 


001150 


| 


000041 


001330 
001330 


64$: 
65$: 
66$: 


#65$, (SP) 


A#SWREG, SWR 
ADISPREG,DISPLAY 
(SP) +, @#ERRVEC 
$PASS 
HMAPTSIZE,SENVM 
67$ 

ASSWREG, SWR 


Lt 6 
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;;SET UP FOR TRAP RETURN 
;iPOINT TO SOFTWARE SwR 
;;RESTORE ERROR VECTOR 
;CLEAR PASS COUNT | 
ii TEST USER SIZE UNDER APT 


ENO. USE APT SWITCH REGISTER 


67$: 
; SETUP = TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 


MOV APRE, ERRVEC+2 “LEVEL 
.SBTTL TYF* PROGRAM NAME 
= TYPE THF NAME OF THE PROGRAM IF FIRST PASS 
Thi f-1 ssFIRST TIME? 
BNt 58S > ;BRANCH IF NO 
CMP H#SENDAD , a442 3 ;ACT=-117? 
BEQ 68$ ;;BRANCH IF YES 
TYPE ,69$ ;3 TYPE ASCIZ STRING 
BR 68$ GET OVER THE ASCIZ 
ag -ASCIZ <CRLF>@CZRMMBO - * RMO5S/3/2 FUNCTIONAL TEST, PT 1a<CRLF> 
-SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST a42 77ARE WE RUNNING UNDER XxXDP/ACT? 
BNE 70$ ; BRANCH IF YES 
CMPB SENV 41 * ARE WE RUNNING UNDER APT? 
BEQ 70$ :BRANCH IF YES 
CMP SWR ,ASWREG ; 7 SOF TWARE SWITCH REG SELECTED? 
BNE 71$ CH IF NO 
a vis = :GET SOF T-SWR SETTINGS 
a § MOVB #1,$AUTOB 7zSET AUTO-MODE INDICATOR 
>THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
:PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
CLR XXDP :CLEAR ‘XXDP' LOAD DEVICE 55 |ORAGE 
CMPB #16,0441 ; LOADED FROM AN RMO5/3/2 ? 
BNE CH IF NOT 
MOV @440,XXDP “GET DEVICE INDICATOR AND NUMBER 
CMPB #7 ,XXDP :1S IT A VALID NUMBER 
BHIS $ YES 
CLRB XX DP. sNO, DEFAULT TO DRIVE O 
1$: TST aA42 ;CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 2$ ;BR IF NEITHER 
TYPE ,/ 3% 3 TYPE ASCIZ STRING 
/2$ 3GET a? THE ASCIZ 
5738: ASCIZ <CRLF>/NOT TESTING DRIVE / 
CLR -(SP) ;CLEAR WORD ON STACK 
MOVB XXDP, (SP) 3GET DRIVE ADDRESS 
TYPOS ; TYPE THE ADDRESS 
BYTE 1 ;ONLY 1 CHARACTER 


ABADTMO,ERRVEC 


; SETUP ‘e UNEXPECTED TIMEOUT 


ta 


a 
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| GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0077 
47 006173 000 BYTE 0O ; SUPRESS LEADING ZEROS 
48 006174 104401 601217 TYPE $CRLF R- 
49 006200 000517 BR rt “GET NUMBER OF DRIVES 
51 006202 005227 177777 2$: INC #~1 FIRST TIME THRU HERE ? 
52 006206 001114 BNE 3$ :NO 
53 006210 104401 006216 TYPE .75$ i: TYPE ASCIZ STRING 
006214 000410 BR 74$ ::GET OVER THE ASCIZ 
::75$: .ASCIZ <CRLF>/TO TEST DRIVE / 
006236 74$: 
54 006236 005046 | CLR -(SP) :CLEAR WORD ON STACK 
55 006240 113716 001330 ) MOVB XXDP, (SP) : GET DRIVE ADDRESS 
56 006244 104403 TYPOS TYPE DRIVE ADDRESS 
57 006246 001 BYTE 1 “ONLY 1 CHARACTER 
58 006247 000 BYTE O :;SUPRESS LEADING ZEROS 
59 006250 104401 006256 TYPE ,77$ ; 7 TYPE ASCIZ STRING 
006254 000431 BR 76$ GET OVER THE ASCIZ 
iia 1 53778: .ASCIZ /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
60 C06340' 104401 006346 TYPE ,78$ i: TYPE ASCIZ STRING 
006344 000435 BR 3$ :GET OVER THE ASCIZ 
sacle 23788: .ASCIZ /WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
64 | :CHECK FOR AUTO MODE OR STANDLONE MODE 
65 006440 005737 000042 | TST aa? RUNNING IN AUTO MODE ? 
66 006444 001561 BEQ STANDALONE :BR IF NO 
67 006446 012737 000377 001300 MOV 4377, SDEVM :SET DEVICE MAP FOR ALL DRIVES 
69 A ;PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
70 006454 S17: 
71 006454 132737 000200 001243 BITB #B1T7,$ENVM :SIZING ALLOWED ? 
te 006462 001146 BNE 12$ :NO 
74006464 005001 CLR R1 :START FROM DRIVE 0 
75 006466 013700 001276 MOV $BASE ,RO ;LOAD THE BASE ADDRESS 
rs 006472 104401 066720 TYPE ,SYSTAT : TYPE "UNIT STATUS: 
78 006476 136137 067236 001300 18: BITB ATNTBL (R1),$DEVM 31S DEVICE PRESENT IN MAP ? 
79 006504 001531 BEQ 11$ :BR IF NO 
80 006506 104401 001217 TYPE »SCRLF :CR-LF 
81 006512 010146 MOV R1,-(SP) ;: SAVE R1 FOR TYPEOUT 
006514 104403 | TYPOS :GO TYPE--OCTAL ASCII 
006516 002 BYTE 2 =: TYPE 2 DIGIT(S) 
006517 000 -BYTE 0O >: SUPPRESS LEADING ZEROS 
a 006520 104401 067130 | TYPE ,BLNKS4 : TYPE 4 BLANKS 
'B4 006524 012760 000040 000010 MOV ACLR,RMCS2(RO) ;:CLEAR MASS BUS 
85 006532 010160 000010 MOV R1,RMCS2(RO) :LOAD THE DRIVE ADDRESS 
86 006536 005760 000012 | TST RMDS (RO) :ACCESS DRIVE REGISTER 
| 87 006542 032760 010000 000010 BIT A#NED,RMCS2(RO) ;:IS DRIVE PRESENT ? 
| 88 006550 | 001051 BNE 3$ -BR IF NO 
89 006552 032760 004000 000000 BIT ADVA,RMCS1(RO) :IS DRIVE AVAILABLE ? 
90 006560 007450 BEQ 4$ -BR IF NO 
91 006 26¢ 016002 MOV RMDT (RO) ~R2 ; SAVE DRIVE TYPE REGISTER IN R2 
566 012737 066736 006766 MOV #SRMO2, 10$ ASSUME RMO2 DEVICE 
93 006574 022702 020025 CMP #20025.R2 -SINGLE PORT RMO2 ? 
9% 006600 001430 BEQ 2$ *BR IF YES 


LOL GE EGE AS 
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CZRMMBO RMOS/3/2 FCINL TST 1 MA 
GET VALUE FOR SOFTWARE SWITCH REGISTER SFQ 0078 

95 006602 022702 024025 CMP #24025 .R2 7DUAL PORT RMO2 ? 

96 006606 pers: | BEG 2$ >BR IF YES 

97 006610 012737 066743 006766 MOV #$RM03.10$ sASSUME RMO3 DEVICE 

98 006616 Oca 0¢ 020025 CMP #20024 .R2 >SINGLE PORT RMO3 ? 

99 006622 00141 BEQ 2$ :BR IF YES 

100 pease 022702 024024 | CMP #24024 .R2 7DUAL PORT RMO3 ? 

101 0066 001414 BEQ 2$ sBR IF YES 

102 006632 012737 066750 006766 MCV #$RMOS.10$ sASSUME RMOS DEVICE 

103 006640 022702 020027 CMP #20027,R2 >SINGLE PORT RMOS ? 

104 006644 00 BEG 2$ :BR IF YES 

105 906646 022702 024027 CMP #24027 .R2 ;DUAL PORT RMOS ? 

106 006652 00140 BEQ 2$ :BR IF YES 

107 006654 104401 066755 TYPE ~NOTRM :DRIVE NOT AN RM05/3/2 

108 006660 000412 ) Se S$ >CHECK NEXT DRIVE 

109 erg 032760 010000 000012 2$: BIT #MOL.RMDS(RO) ;I1S MEDIUM ON LINE ? 

110 0066 001412 BEQ 6$ :BR IF NO 

1] 006672 000417 BR 7$ 

18 sg 104401 067013 3$: TYPE »NOTPRS _ DRIVE NOT PRESENT 

1% 606700 000402 fete S$ ;CHECK NEXT DRIVE 

116 006702 104401 067030 4$: TYPE »NOTAVL zDRIVE NOT AVAILABLE 

117 006706 146137 067236 001300 S$: BICB ATNTBL(R1),$DEVM ;CLEAR DEVICE FROM BIT MAP 

ay 006714 25 BR 11$ sCHECK NEXT DRIVE 

120 71 19640) 067047 , 6$: TYPE , UNTOF F sDRIVE OFFLINE 

121 a 146137 067236 01300 | BICB ATNTi3L (R11) , SDEVM :CLEAR DEVICE FROM BIT MAP 

§ 7 000413 iter oS zPRINT DRIVE TYPE 

124 i 2 005737 001330 7$: TST XXDP ;LOADED FROM RM05/3/2 ? 

125 7 Oe tSRe \ BEQ 8$ ‘ 

1 B's toy 123701 001330 CMPB XXDP_R1 :1S THIS THE DRIVE ? 

127 006744 001360 ye BNE 5$ ;BR IF NO 

1 8 5 104401 066776 TYPE LODEV sDRIVE IS LOAD DEVICE 

; 752 0900755 BR 5$ 

131 754 13060 067060 8$: TYPE ,UNTON ;DRIVE ONLINE 

1 ; 760 104401 067132 9$: TYPE -BLNKS2 : TYPE 2 BLANKS 

1 764 104401 TYPE :PRINT DRIVE TYPE 

r 766 000000 10$ -WORD 0 :MESSAGE ADDRESS HERE 

1 § 77 5201 11$: INC R1 zs INCREMENT THE DRIVE ADDRESS 

1 77 oes 000007 CMP R1,47 zALL DRIVES ARE CHECKED ? 

138 776 «=6003637 BLE 1$ :BRANCH IF NOT 

140 ait 104401 001217 128: TYPE ,SCRLF > CR-LF 

147 QO 00073? 007466 JMP CMNSTART 7 JUMP TO COMMON START 


SS ne 


A TT A  .\ AST 
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J -SBTTL STANDALONE INPUT ROUTINES 
3 007010 STANDALONE - 
¢ 007010 004737 064210 JSR PC .STKINT _ gINITIALIZE CONSOLE 
$ 007014 005227 177777 INC a-1 sFIRST TIME THRU HERE ? 
} 007020 001023 BNE 2$ 7BR IF NO 
1b 7SEE IF OPERATOR WANTS HELP TEXT 
11 007022 104401 066344 TYPE -MSHELP zWANT HELP ? 
1g 0070 104411 RDCHR 7GET RESPONSE 
13 0070 012637 001176 MOV (SP)+, STMP1 >SAVE AND EChO RESPONSE 
14 007034 123727 001176 000131 CMPB SIMP1_#"yY sWAS IT A YES RESPONSE ? 
15 007042 001005 BNE 1$ NO 
16 007044 104401 001176 TYPE ~STMP1 :TYPE ‘y* 
17 007050 106401 103274 TYPE HELP : 7YES = TYPE HELP TEXT 
18 007054 14 HR 3$ 
19 007056 104401 067124 1$: TYPE _N sTYPE "N° 
0 607062 104401 001217 TYPE , SCRLF > CR=LF 
$1 007066 000407 ae 3$ 
23 ;SEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 
4 007070 ' 23: 
$2 007070 005737 001326 TST CHGADR > CHANGE RH/RM BUS ADDRESS ? 
6 007074 001457 , BEQ 7$ :BR IF NO 
tA 007076 005937 001326 CLR CHGADR 7NO CHANGE NEXT TIME 
007102 106401 001217 TYPE ,SCRLF > CR=LF 
007106 gDIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
6 007106 104401 066375 TYPE ~CNSLO1 : TYPE CURRENT BUS ADDRESS 
$$ 007112 013746 001276 MOV SBASE ,-(SP) :zSAVE SBASE FOR TYPEOUT 
007116 104402 TYPOC 3;GO TYPE--OCTAL ASCII(ALL DIGITS) 
Me pr tsy 104401 067132 TYPE »~BLNKS2 : TYPE 2 BLANKS 
§ 007124 104413 RDOCT :GET NEW BUS ADDRESS 
007126 012637 001176 MOV (SP)+,$TMP1 ;CARRIAGE RETURN ? 
0071352 001412 BEQ 5$ 7 YES-SKIP TO NEXT ENTRY 
0071 022737 160000 001776 CMP #1€9000,$TMP1 :BASE ADDRESS IN I/O PAGE ? 
9 per lee 101403 BLOS 4 YES 
40 007144 104401 066405 TYPE ,~CNSLO2 : TYPE WARNING MESSAGE 
41 00715C 000756 BR 3$ :TRY AGAIN 
rk 007152 013737 001176 001276 4$: MOV STMP1, SBASE :STORE NEW BUS ADDRESS 
44 007160 104401 066447 5$: TYPE »CNSLOS3 
45 007164 005046 CLR -(SP) 
46 007166 113716 001272 MOVB $VECT1, (SP) :GET CURRENT VECTOR ADDRESS 
47 007172 104402 TYPOC 
48 007174 104401 067132 TYPE »~BLNKS2 :TYPE 2 BLANKS 
49 007200 104413 RDOCT :GET NEW VECTOR ADDRESS 
50 007202 012637 001176 MOV (SP) +, $TMP1 CARRIAGE RETURN? 
51 007206 001412 BEQ 7$ 7YES-SKIP TO NEXT ENTRY 
26 007210 022737 001000 001176 CMP #1000, $TMP1 : VECTOR ADDRESS < 1000 ? 
5$ 007216 101003 BH] 6$ :YES!! 
54 007220 104401 066456 TYPE ~CNSLO4 7 TYPE WARNING MESSAGE 
55 007224 000755 BR S$ RETRY 
56 007226 113737 001176 001272 68: MOVB STMP1.S$VECT1 :STORE NEW VECTOR ADDRESS 


ND AL ONE 


83 007356 
84 362 


a 007426 
95 007430 
96 007434 
97 007440 
98 007446 
99 007454 


100 007456 
101 007462 


27 
000423 
104411 


1 
000137 


RMOS/3/2 FCTNL TST 7 
INPUT ROUTINES 


177777 


001176 


001176 
001176 


001176 


001176 
001176 


066341 
001176 
001176 
001176 


066654 


001176 


001217 
006454 
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000101 


001300 


000015 


000060 


000067 


000015 


000060 
000067 


001300 
001300 


7$ 


8$: 
9$: 


10$: 


11$: 


12$: 


13$: 


14$: 


-MSDRVS 
(S?)+,STMP1 
STMP1_&°A 
10$ 

»ALL 

#377 ,SDEVM 
XSIZ 
STMP1,#CR 
12$ 

,SIMP1 
STMP1,4°0 
SIMP1,4'°7 


13$ 
12$ 


(SP)+,$TMP1 
$TMP1,A4CR 
14$ 

-STMP1 
STMP1 ,#°O 
12$ 
STMP1,#°7 
13$ 

, CNSLO8 

9$ 


STMP1 RI 


7,R1 
ATNTBL(R1) , $DEVM 
EVM DONE ? 


#377 ,$D 
11$ 

. SCRLF 
KSI2 


os. ‘a act mats NUMBERS 


fe Hs TIME THRU ? 


:BR NO 
daa 2 INPUT INSTRUCTIONS 


;CLEAR DEVICE MAP 
sTYPE “DRIVE(S): ° 


sGET RESPONSE 
;IS INPUT 


A‘ ? 

:NO 

:YES, TYPE ‘‘ALL'’ AND GO 

:SET DEVICE MAP FOR ALL DRIVES 
;AUTO SIZE. 

— RETURN ? 


S 
ECHO RESPONSE 
;NUMBER < 0 ? 


Zs YES 
NUMBER a ae 
7 ILLEGAL INPUT 


sGET RESPONSE 


a RETURN ? 


; TYPE 
ECHO RESPONSE 
; NUMBER <0? 


YES 
“NUMBER > 7 7 


> TYPE CR=LF ‘' 2ILLEGAL INPUT"' 
RETRY 


;R1 = DRIVE NUMBER 


sSET DEVICE IN MAP 


*CR=LF 
3GO SIZE DEVICES 


ee RE EE sun 


a ct i ttt 


CZRMMBO RMO5/3/2 FCINL TST 1 


STANDALONE 


18 


007554 


007574 


007600 
007604 
007606 
007612 


104401 


004737 
000425 
104401 
000414 


005737 


000137 


000240 
105737 


INPUT ROUTINES 


067070 
001300 


000001 


066341 


067236 000001 
000002 


001217. 


043400 
007614 


000042 


005422 
041620 


001300 
000042 


005422 
041620 


001116 


007734 
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sASSEMBLE TEST QUE FROM DEVICE MAP 


i TYPE "DRIVE(S) TO BE TESTED‘ 
;RO = DEVICE MAP 
:BR IF |p DRIVES TO TEST 


:TYPE ‘NONE’ 
:R1 = ADDRESS OF FIRST ENTRY IN QUE 
Fe he Th ENTRY POINTER 
= DEVICE POINTER 
RS = DEVICE NUMBER 
:1S Th THIS DEVICE IN MAP ? 


;TYPE ', ° 
i YES - ENTER DEVICE NUMBER IN QUE 
SAVE R3 FOR TYPEOUT 
360 s mnaiice ASCII 
cc TYPE J DIGIT(S) 
; SUPPRESS LEADING ZEROS 
ENTER ATTENTION BIT IN QUE 
sADVANCE ENTRY POINTER 
sADVANCE DEVICE POINTER 
: DONE ALL DEVICES ? 


ADVANCE DEVICE NUMBER 
sENTER NEXT DEVICE 

: TERMINATE TEST QUE 

: TYPE CR=-LF 


sSEE IF CLOCK PRESENT 

;YES - CLOCK IS PRESENT 

2 TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 


:ANY MONITOR PRESENT ? 
>BR IF YES 

; JUMP TO STAR 

RETURN CONTROL TO MONITOR 


sREADY TO START TEST 
sANY DRIVES IN MAP ? | 
;BR IF YES 

sANY MONITOR PRESENT ? 

:BR IF YES 

; JUMP TO START 

;RETURN CONTROL TO MONI TOR 


sRESET TEST NUMBER 

; INITIALIZE NUMBER OF ITERATIONS 
s INITIALIZE TTY 

3:PUT NEW PS ON STACK 

;sPUT NEW PC ON STACK 

;;POP NEW PC AND PS 


CMNSTART 
| TYPE DRIVES 

MOV $DEVM, RO 
BNE 15 
TYPE , COMMA 
TYPE »NONE 

1$: MOV #TSTQUE+2,R1 
MOV R1,TSTQUE 
MOV #1,R2 
CLR R3 

2$: BIT R2,RO0 
BEQ 3$ 
TYPE , COMMA 
MOV R3,(R1) 
MOV R3,-(SP) 
TYPOS 
-BYTE 1 
-BYTE 0 
MOVB ATNTBL(R2),1(R1): 
ADD #2,R1 

3$: ASL R2 
TSTB Re 
BEQ 4$ 
INC R3 
BR 2$ 

4$: CLR (R1) 
TYPE ,SCRLF 

sSIZE FOR CLOCK 
JSR * PC,SIZCLK 
BR 6$ 
TYPE ,65$ 
BR . 645 : 

ital -ASCIZ <CRLF>/NO 'L" OR 'P* CLOCK/ 
TST a42 
BNE 5$ 
JMP START 

S$: JMP $GET42 

6$: 

READY: NOP 
TSTB $DEVM 
BNE 2$ 
TST aA42 
BNE 1$ 
JMP START 

1$: JMP $GET42 

2$: CLRB S$TSTNM ¢ 
CLR $TIMES_.: 
JSR PC, ,STKINT 
MOV A#PRS,-(SP) 
MOV #64$,-(SP) 
RT] 

64$: 


SEQ 0081 


LL TS <n ites mene 
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STANDALONE 


49 


68 


73 


007734 


007742 
007750 


010014 
010020 
610024 


010030 


010044 


117737 


001003 
012737 


104401 
104401 
013746 


104403 


001376 


INPUT ROUTINES 


171524 


002000 
001276 


000007 
011000 


001217 
066712 
001234 
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001234 


001432 


000010 
000010 


001332 


MOVB 


@TSTQUE ,SUNIT 


SEQ 008, 


sLOAD DRIVE NUMBER 


>CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK 
:OF THE-DIFFERENT DRIVE TYPES 


ATAS,LSTRK 
SPASE ,RO 
ACLR,RMCS2(RO) 


aTSTQUE ,RMCS2(RO) 


RMT (RO) ,R2 
#177770,R2 
#7,R2 


$ NO, 
ATA16! TA2,LSTRK SYES==SF 


+ ASSUME LAST TRACK FOR RMO2/3 = 
;RO = UNIBUS ADDRESS 
“CLEAR MASSBUS 
“GET RMD} “aa DEVICE UNDER TEST 


; SAVE DRIVE TYPE BiTS 
S IT AN RMO5 ? 


MUST BE AN RMO2 OR QM03 
-1 LAST TRACK = 18. 


:TYPE DRIVE NUMBER TO BE TESTED($UNIT) 


3$: 


o $CRLF 
-MSGDRV 
$UNIT,=(SP) 


; CR-LF 

: TYPE *DRIVE’ 

:;SAVE SUNIT FOR TYPEOUT 
:sTYPE DRIVE NUMBER 

:2GO TYPE=--OCTAL ASCII 

:sTYPE 2 DIGIT(S) 

:;SUPPRESS LEADING ZEROS 
THESE TWO LOOPS ARE ADDED 10 
;WAIT FOR TTY 


- ee ee 


alleen — 


+ 
7 


Mh ed cand ad ed and ed = 2.) ed od 
OCNAULSWHOOWONAWN Hwn) 


© 


33 


TRMMBO RMOS/3/2 FCTNL TST 


CONTROLLER ACCESS rest 


010046 


010114 
010122 


012737 
110160 


000417 


022626 
012657 


000137 


000004 


012777 
004737 


001100 
001276 
001464 
000001 


000004 


000004 


000006 
000004 


000042 
005412 


001 300 
041432 


001100 
Rritce 


0000602 


052264 
000404 ' 
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001226 


000004 
000006 


001206 
001226 


F 7 
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Pe lelieleiateleiet ttt the hhh PPP PPR PPE EE LASALLE. SE 


CONTROLLER ACCESS TEST 


iallaieleleiateie tile htt hehehe PE PRP RARE ELALAELELCLOCLEAE ST 


r$11: 


“STEST 1 


2S: 


3$: 


#STACK,SP 


TSTQUE ,R1 
#1,$TESTN 


R1 
ERRVEC,-(SP) 
ERRVEC+2,-(SP) 
#1$,ERRVEC 
#PR6,ERRVEC+2 


R1,RMCS1+1(RO) 


»R2 
RMCS2(RO) ,-( SP) 
R1,RMCS2(RO) 
RMCS2(RO) ,R2 
(SP)+, RMCS2(RO) 
R1 RMD (RO) 
RMDB (RO) R2 

(SP) + JERRVEC +2 
ea ~ERRVEC 


(SP)+,(SP)+ 
(SP) +, ERRVEC+2 
il ttt 


442 
2$ 
START] 


SDE VM 
$EOP 


;SCOPE CALL 
i START OF TEST 


s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 
:3SET TEST NUMBER IN APT MAIL BOX 


37PUSH ERRVEC ON STACK 
73PUSH ERRVEC+2 ON STACK 


sMOVE HI BYTE TO RMCS1 
sMOVE WORD COUNT REGISTER 


sMOVE BUS ADDRESS REGISTER 


sPUSH RMCS2(RO) ON STACK 
:MOVE CONTROL STATUS REGISTER 


POP STACK INTO RMCS2(RO) 


MOVE DATA BUFFER 


sPOP STACK INTO ERRVEC+2 


; ;POP STACK INTO ERRVEC 
:NO BUS TIMEOUT OCCURRED 


sADJUS STACK 
POP STACK INTO ERRVEC+2 
Pl! STACK INTO ERRVEC 


: STAND ALONE MODE ? 
:YES-GO GET $BASE 


:FUDGE NO DRIVES IN MAP , 
sRETURN TO $EOP 


FREER EAA REE RRR ERERAKRERERARRERE REAR REE EES 


“RTEST 2 


UNIBUS INITIALIZE TEST 


* REE RAKE ETEK ERARAEEREEREARERAERERE RE REE REDS 


TST2: 


ASTACK,SP 
$BASE ,RO 
TSTQUE ,R1 
#1,$TIMES 
#2,$TESTN 


PC, CNTCLR 
1$ 


sSCOPE CALL 

;START OF TEST 

; INITIALIZE STACK POINTER 

;RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 
7300 1 ITERATION 
s¢SET TEST NUMBER IN APT MAIi 80x 


:GO ISSUE CONTROLLER CLEAR 
;GO TO 1$ IF NO ERROR 


ox 


ry Lae | 


010576 
010600 


6 010604 


010612 


012737 
012737 


012702 


111160 
004737 


004737 


104115 


005037 
013737 
007401 


fe FCTNL TST 7 
INITIAL IZe TEST 


011116 
000101 
000000 
000022 
000200 


043160 


011116 


17777? 


021037 


001543 
000004 
000014 
000042 
000024 
000000 
000010 
000200 
043160 


011116 
064210 
000010 
042624 


042710 


001334 
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001432 
001543 
001544 


001414 


001420 


001142 


1$: 


3S: 


4$: 


5$: 


6$: 


s;RETURN HERE IF ERROR 
TERROR NUMBER ae BY SUBROUTINE 


15$ :GO TO 15$ JF ERROR 
#65.,R2 ;SET OR AND RESET IR 
#0,RMDBO ;WRITE ZEROS IN DATA SILO uy 


#RMDB., PUT INX 


;SETUP REGISTER INDEX 
#200, PUT INX+1 


PC,PUT + G0 WRITE get ods WITH sil SUBROUT INE 
3$ O TO 3$ IF NO ERROR 
RETURN HERE TF ERROR 
sERROR # DEFINED ann PUT SUBROUT INE 
15$ :GO TO 15$ IF ERR 
Re : DECREMENT COUNT 
2$ WRITE _SILO AGAIN 
#-1 ,RMBAO PF = ALL 1°S 
#-1 ,RMER10 sRMER1 = ALL 1°S 
#~1 ,.RMER2O sRMER2 = ALL 1°S 


AL 
#DMD ' DBEN,RMMR10° SET DIAGNOSTIC MODE 
#003577,RMCS10 


#021037. RMCS20 | | 


#PUTINX R2 ;R2 = ADDRESS OF INDEX TABLE \ 
#RMBA , (R2) + a tae. F 

#RMER1 , (R2)+ | | 

#RMER? (RO) + 7 


#ARMCS1, * (R2)+ 
#RMCS2. (R2)+ 
#200, (R2)+ 
PC PUT 7:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
4$ :GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ZERROR # DEFINED BY PUT SUBROUTINE 


15$ :GO TO 15$ IF ERROR 
:UNIBUS INITIALIZE 
PC $TKINT ; INITIALIZE CONSOLE 
(R71) ,RMCS2(RO) SELECT DEVICE 
PC, GETSTS :G0 SET UP FOR STATUS FETCH | 
PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
5$ :GO TO 5$ IF NO ERROR ~ 
sRETURN HERE IF ERROR 
:ERROR # DEFINED BY GET SUBROUTINE 
15$ :SKIP REMAINDER OF TEST | 
RMCS1I1,$BDDAT  :VERIFY RMCS1 
#S5C,$BDDAT : IGNORE SPECIAL CONDITION 
#DVA'RDY,$GDDAT :EXPECT DVA & RDY 
$GDDAT,$BDDAT  :COMPARE EXPECTED, RECEIVED 
6$ “BRANCH IF EQUAL 
115 
$GDDAT VERIFY RMBA IS ZERO 
RMBAI , $8DDAT 
7$ *BRANCH IF ZERO 


C 7RMMBO 
re 


78 
79 
80 


M2 OOONANEWUOF 


el eet eed ed nw ee ee ee ee | 
MONITNQG A AR eM eM a se ee 


MM 
Ww 


RMOS/3/z2 FCTNL TST 1 


UNI BUS 
010614 


010726 
010730 


010762 


010764 
010770 


104176 
013737 


104120 
013737 


104121 
013737 


005037 
013737 
001401 
104124 


013737 


001401 


INITIALIZE TEST 


001140 
001350 
040000 


001352 
0C0001 


001142 


001360 
000046 
000010 
001140 


001140 
001402 


001374 
140000 
011777 
007140 


001140 
001376 
040200 


001346 
177177 
000600 
001142 
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001742 


\ 


001142 


001142 
001142 


001142 


001142 
007142 


7$: 


8$: 


9$: 


10$: 


001140 — 


001142 


001142 


001142 
001142 
001140 
001142 


11$: 


12$: 


13$: 


14$: 


FMT 


* 
“— 


116 
RMCS21, $BDDAT 
= (SP) | 
(R1), (SP) 
#IR, (SP) 
(SP) +, $GDDAT 
$GDDAT , $BDDAT 
8$ 

117 

SGDDAT 
RMER11 , SBDDAT 
MUNS , SBDDAT 
O$ 

120 
RMASI , SBDDAT 
R2 

1(R1) ,R2 

R2 

R2 

R2, $BDDAT 
108 

121 


111, $BDDAT 


C'LS'LST, $BDDA 


T 
AMWD , $GDDAT 
SGDDAT , $BDDAT 
11$ 
122 
$G 


| DDAT 
RME C21, $BDDAT 
12$ 


124 
RMMR2 1, SBDDAT 


#ROA' ROB, $BDDAT 
#TST!1777.$GDDAT 


$GDDAT , $BDDAT 
13$ 
125 


$SGDDAT 
RMER2 1 , $BDDAT 


ASKI'DVC,$BDDAT 
14$ 


173 
RMDS1,$BDDAT ‘ 


#“*C<DPR!DRY>,S$BDDA 


“= 
— D 
= 


CS2 
R & UNIi NUMBER 


s COMPARE EXPECTED & RECEIVED 


sBRANCH IF EQUAL 


; VERIFY RMER1 


; IGNORE UNSAFE | 
;BRANCH IF ZERO 


; VERIFY RMAS 
sCLEAR ALL BUT THIS 
:DRIVES ATTENTION BIT 


:BRANCH IF ITS 0 . 


VERIFY RMMR 

T ; IGNORE WORD CLOCK, SCI. TRkK 
sEXPECT WRITE DATA BIT 

; COMPARE EXPECTED AND RECEIVED 
;BRANCH IF 0 


EXPECT ZEROS 
:VERIFY RMEC2 = 0 


7VERIFY RMMR2 | 


sEXPECT TEST, TAG BIT ON 


sEXPECT ALL ZEROS 
;VERIFY RMER2 

; IGNORE DEVICE ERRORS 
;BRANCH IF OTHER BITS QO 


;CHECK DRIVE STATUS REGISTER | 


ADPR:DRY,$GDDAT ;EXPECTED STATUS 


$3DDAT , $GDDAT 
15$ 
123 


:COMPARE EXPECTED & RECEIVED STATUS 
;DRIVE STATUS IS OK 


 ——— RMO5/3/2 FCTNL TST 


UNIBUS INITIALIZE rest 


011116 


aul end eld adtnal add ond 
ab @bebed ab «bad 
coud ond al eel ancl cal cad 
a 
MAknNn0ol MANOA O 


CODSTOOMDMOOCOCO DOOCODO 
el ek ed ed ee ed ed ed aed td 
SOUND eevee 


MORIN 3 A et ee 
Oon & 


012737 
004737 
104000 
000137 
012702 
012737 
112757 
112737 


004737 


000137 


001100 
000003 
052264 


011454 


060101 
000000 
000022 
000200 


043160 


017454 


177777 


043160 


052264 


017454 


ae 
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001226 


001432 
001543 
001544 


001414 
001424 
001452 
001434 
001410 
0091420 


15$: 


os lili tte teeta eee RRR RRR RE RE RRR REE SSOSLOSCOSOOSS © 2 2 0 2 


CONTROLLER CLEAR TEST 


* tthe eee eee ERP PPP PPE SSE REALEEESEELELCLEELLEEE TE 


SeTEST 3 


TST3: 


13: 


2$: 


3$: 


S$: 


ASTACK ,SP 

SE ,RO 
TSTQUE ,R1 
#3, $TESTN 


PC,CNTCLR 
1$ 


#RMDB , PUT INX 
#200, PUT INX+1 


PC,PuT 
3$ 


ADMD ' DBEN, RMMR10 
#003577,RMCS10 
py et RMCS20 —- 
#PUT INK,R2 


#RMBA, (R2) + 
#RMER, (R2)+ 
ARMER2, (R2)+ 
ARMMR1, (RZ) + 
#RMCS1,(R2)+ 
ARMCS2,(R2)+ 
#200, (R2)+ 
PC ,PUT 

4$ 


7$ 


PC,CNTCLR 
5$ 


8$ 


sSCOPE CALL 
sSTART OF TEST 
s INITIALIZE STACK POINTER 


RO = UNIBUS ADDRESS 
:(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


>GO ISSUE CONTROLLER CLEAR 
:GO TO 1$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR NUMBER DEFINED BY SUBROUTINE 
:GO TO 8$ IF ERROR 


:WRITE ZEROS IN DATA SILO 
;SETUP REGISTER INDEX TABLE 


:— WRITE REGISTER(S) WITH PUT SUBROUTINE 
TO 3$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 8$ IF ERROR 

sDECREMENT COUNT 

sAND WRITE SILO AGAIN IF NOT DONE 


—_— 


- 


sR2 = ADDRESS OF INDEX TABLE 


3GO WRITE rF as Enea WITH PUT SUBROUTINE 
:GO TO 4$ IF NO ER a 

:RETURN HERE IF ERROR 

:ERROR # DEFINED BY PUT SUBROUTINE 


:GO ISSUE CONTROLLER CLEAR 

:GO TO 5$ IF NO ER A 

;RETURN HERE IF ERRO 

:ERROR NUMBER DEF INED BY SUBROUTINE 
;GO TO 8$ IF ERROR 


‘ates 


180 
181 


182 
183 


RMO5/3/2 FCTNL TST 1 
CONTROLLER CLEAR TEST 


2 OTS 
5 011374 


0114352 


011440 
011444 
G11446 
011450 
011452 
011454 


011454 


Oo NAVMWMNAMNMANDNNAMNn 
S Ne ee ee at 
MEA HMOOANSAOOHLNO 


OOOO OCOCOCCCCCCOCOCOO 
mack me ek eth eth cee ce ed ceed ed ee eed eed ed eed ed 


oO 
fe 
© 


004737 
004737 
O% 


012737 
004737 


004736 


000004 


112737 


112737 - 


004737 


042624 
042710 


011454 
052402 


011454 


. 000000 


044540 


001100 
001276 
001464 
000004 


052264 
011660 
000000 
000200 


040000 
043160 


000000 
000010 


000200 0 


042710 


i ¢ 
MACRO VO04.00 4=APR=81 11:43:28 PAGE 13-4 


007410 


001226 


001543 
001544 
001410 


5$: JSR PC,GETSTS 


PC,GET 
6$ 


JMP 8$ 
PC,CLRSTS 
7$ | 


6$: 


PC,a(SP)+ 
8$ 


7$: 
ANOP,RMCS10 


PC,SECERR 
8$ 


PC,a(SP)+ 
8$: 


; CHANGE 


SEQ 0087 


sSETUP TO READ ALL REGISTERS 


GO > REGISTER(S) WITH GET SUBROUTINE 
TO 6$ IF NO oo oa 

“RETURN HERE IF ERR 

;ERROR # OT eae om "GET SUBROUT i NE 


:GO TO 8$ IF ERR 
;GO VERIFY CONTROLLER CLEAR OPERATION 
:GO TO 7$ IF NO ERROR 


;RETURN HERE If ERROR 

s;ERROR # DEFINED BY CLRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 8$ IF ERROR 


FUNCTION CODE FOR ERROR CHECK 


;G0 ro FOR SECONDARY ERRORS 
:GO TO 8$ IF NO ERROR 
‘RETURN HERE IF ERROR 
sERROR # DEFINED BY SECERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 


tf foe Ree eC ESA ER CRE SESE SSSR CSO SSSOSSSCSSCSCOS.’ SS oS 


ili ttt dhe eee eee RPP RPS E CSE SE SALASSCCSLCLC£CCCCC&L. 


Z*TEST 4 ERROR CLEAR TEST 

1814: 
SCOPE 
NOP 
MOV #STACK,SP 
MOV $BASE .RO 
MOV TSTQUE ,R1 
MOV #4 .STESIN 
JSR PC,CNTCLR 
BR 10$ 
NOP 
EMT 

MP 50$ 

10$: 
MOVB ARMCS1,PUTINX 
MOVB  #200,PUTINX+1 
MOV #TRE.RMCS10 
JSR PC,PUT 
BR 20$ 
NOP 
EMT 
BR 50$ 

20$:  MOVB  #RMCS1.GETINX 
MOVB  #RMCS2.GETINX+1 
MOVB #200,GETINX+2 
jgn 0 EET 
BR 30$ 
NOP 


:SCOPE CALL 
:START OF TEST. 


; INITIALIZE STACK POINTER 

;RO = UNIBUS ADDRESS 

3(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


+ G0 ISSUE CONTROLLER CLEAR 
1 NO ERROR 


;ERROR NUMBER DEFINED BY SUBROUTINE 
;GO TO 50$ IF ERROR 


;SETUP PUT INDEX TABLE 

;SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = TRE 

3;GO WRITE RMCS1 VIA PUT SUBROUTINE 
;GO TO 20$ IF NO ERROR 

;RETURN HERE IF ERROR 

s;ERROR DEFINED BY PUT SUBROUTINE 
:;SKIP REST OF TEST 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 30$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUT INE 


211 

212 
215 
214 
215 
216 
217 
218 


225 
226 
227 
228 


229 
230 


RMO5/3/2 FCTNL TST 1 


ERROR CLEAR TEST 


011724 
011730 


011742 
011744 
011752 
011754 
011762 
011770 
011776 
012004 


012032 


012034 
012042 


012044 
012052 


104137 
013737 


104140 


000004 


004737 
004737 


032737 
001 

013737 
012737 


001344 
104377 


001100 
001276 
001464 
000005 


052264 


012174 
042624 
042710 


010000 
001346 


001 346 


000200 
001376 
001140 
040000 


001350 
040000 
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BR 50$ iSKIP REST OF TEST 
001142 30$: MOV RMCS11,$BDDAT * CHECK TRE & MCPE 
CLR $GDDAT MPECT O'S 
001142 BIC PC CTRE: MCPE>, SBDDAT 
BEQ 40$ ;BRANCH IF TRE & MCPE = 0 
EMT 137 
001142 40$: MOV RMCS21,$BDDAT ;CHECK RMCS2 
001742 ae #*C<WCE !UPE !NED!PGE !MXF !MDPE >, “ SBDDAT 
EMT 140 
50$: 
5 22022 R See RRR RRR RRR RRR SRE RE RSE SEER SE EEC CS SS SSSSCCCC.eO. © oe ae ee 
Z*TEST 5 DRIVE STATUS TEST 
bd Ise SSSI ITT LILIST TLIC OSES TTT TILE TLL CELE TELE TTT TTT TTT Tee 
TSTS: 
\ SCOPE 3;SCOPE CALL 
oP : START OF TEST 
MOV MSTACK,SP INITIALIZE STACK POINTER 
MOV $BASE ,RO RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
001226 MOV AS .STESTN —frSET TEST NUMBER IN APT MAIL BOX 
JSR PC,CNTCLR 3GO ISSUE CONTROLLER CLEAR 
BR 1$ ;GO TO 1$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT * ERROR NUMBER DEFINED BY SUBROUTINE 
sf JMP 8$ :GO TO 8$ IF ERROR 
JSR PC,GETSTS : 
JSR PC GET ;GO READ REGISTER(S) WITH GET SUBRQUTINE 
BR 2$ :GO TO 2$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT = ERROR # DEFINED BY GET SUBROUTINE 
BR 8$ :SKIP REST OF TEST 
001346 2$: BIT AMOL .RMDSI ;MEDIUM ON LINE?? 
BNE 3$ *¥ES: 
001140 MOV RMDSI,$GDDAT “E NPECTED STATUS 
001140 BIC #ATA!ERR PIP! LBT, SGDDAT 
001140 BIS #MOL ,. SGDDAT 
001142 MOV RMDSI, SBDDAT sRECEIVED STATUS 
EMT 151 :MOL STATUS INCORRECT 
BR 5$ 
001376 3$: BIT ADVC,RMERZ! 31S THERE A DEVICE CHECK?? 
BEQ 4$ : :BR IF NO 
001142 MOV RMER21,$BDDAT SRECEIVED STATUS 
CLR $GDDAT sEXPECTED STATUS 
EMT ;DRIVE FAUL 
001350 BIT HUNS,RMER11 31S UNS SET?? 
; BNE 5$ sYEeS!! 
001142 MOV RMER11,$BDDAT sRECEIVED STATUS 
001140 MOV — #UNS , $GDDAT sEXPECTED STATUS 


256 
257 


258 


259 
0 


0 
260 012274 


261 


262 
263 


264 


265 


SF ‘ataiarns RMO5/3/2 FCTNL TST 1 


DRIVE STATUS TEST 


012174 


012174 


012276 
012502 


012316 
012320 


104153 
000472 


032737 


104175 


032737 
001406 
013757 
005057 
104205 


000004 


040000 


001350 
001140 


041374 
004000 
001346 
166076 
001346 
040000 


001376 
001140 


001100 


052264 


012354 


000000 
000200 


000023 
043160 


042624 
043522 


042710 


| L ? 
MACRO V04.00 4-APR=81 11:43:28 PAGE 13-6, 


001550 
001142 


001346 
001140 
0011740 
001142 
001376 


001142 


001226 


001543 
001544 
001410 


SEQ 
EMT 153 ;‘‘DVC’’ IS SET BUT ‘UNS’’ IS NOT 

BR 5$ 
4$: BIT MUNS,RMERII |; ‘1s UNS SET?? 

BEQ $ NO}! 

MOV RMER1] , $BDDAT RECEIVED STATUS 

CLR $GDDAT sEXPECTED STATUS 

EMT ;'DVC"' IS NOT SET, BUT ‘UNS’’ I 
5$: JMP $EOSP ;SKIP REST OF TEST 
6$: BIT AWRL ,RMDS! ‘1S WRITE PROTECT ON?? 

BEQ 7$ NO}! 

MOV RMDSI,$GDDAT “EXPECTED STATUS 

BIC #*C<MOL !PGM! DPR! DRY! VV!OM>, $GDDAT 

MOV RMDS1 ,$BDDAT ;RECEIVED STATUS 

EMT 175 :SELECTED DEVICE IN WRITE PROTECT 
7$: BIT ASK1,RMER21 :1S SKI SET?? 

BEQ 8$ sNO!! 

MOV RMER21,$BDDAT ;RECEIVED STATUS 

CLR SGDDAT sEXPECTED STATUS 

EMT 205 ;PERSISTENT SEEK INCOMPLETE ERROR 


8$: 


Ce RARER AAA AEEREREKEAREERERERAEERREEREREEEERERAKEKKEHEKKEKKKHEE 


2 *TEST 6 PRIMARY/SECONDARY ERROR TEST 
CTE AEA AAA RARER EERE EEE EKREREKED RHEE 
1816: 
SCOPE :SCOPE CALL 
NOP :START OF TEST 
MOV #STACK, SP s INITIALIZE STACK POINTER 
MOV $BASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 2(R1) = DEVICE BEING TESTED 
MOV #6, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
JSR PC,.CNTCLR ;GO ISSUE CONTROLLER CLEAR 
BR 1$ :GO TO 1$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR NUMBER DEFINED BY SUBROUTINE 
1 JMP 5$ :GO TO 5$ IF ERROR 
MOVB ARMCS1,PUTINX  ;SETUP PUT INDEX TABLE 
MOVB #200,PUTINX+1 —;SET TERMINATOR BYTE 
MOV RMCS1 OUTPUT BUFFER = PAKACK!GO 


#PAKACK :GO,RMCS10 A 
JSR PC PUT WRITE RMCS1 VIA PUT SUBROUTINE 
BR 2$ :GO TO 2$ IF NO ERROR 


NOP ;RETURN HERE IF ERROR 
EMT ;ERROR DEFINED BY PUT SUBROUTINE 
BR 5$ ;SKIP REST OF TEST IF ERROR 
c$: JSR PC,GETSTS ;SETUP FOR STATUS FETCH 
JSR PC,TIMOUT ;WAIT FOR COMPLETION OF NOP 
JSR, PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE / 
BR 3$ :GO TO 3$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET ee 
BR 5$ ;SKIP REST OF TEST IF ERROR 


0089 


EE Ree 


— RMO5/3/2 FCTNL TST 1 
PRIMARY/SECONDARY ERROR TEST 


267 


274 
275 012402 


276 012420 
277 012420 


290 012552 


ol of 


004737 
000403 
000240 


104000 
004736 


043706 


044540 


001100 


000007 
052264 


0153426 


000001 
043160 


015426 
042624 


042710 


013426 
000001 


000001 
001360 


013426 
010000 


001346 
1677/0 
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001226 


001543 
001544 
001434 


001360 
001140 
001142 
001346 


901142 
001142 


3$: 


4$: 


5$: 


PC,PRIERR 480 CHECK FOR PRIMARY ERRORS 
4$ TO 4$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

:SKIP REST OF TEST IF ERROR 


;GO CHECK FOR SECONDARY ERRORS 
:GO TO 5$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR® ‘SUBROUT INE 
;GO BACK FOR MORE ERROR CHECKS 


PC,a(SP)+ 
5$ 


PC,SECERR 
5$ 


PC,a(SP)+ 


iit tte ete PRR eR PRR RRR CES ESSA SOSSSSOSCLASE. © 


:*TEST 7 


hit eee OPP RRR ERE EERE SESE ESE SCSOSLASSCSASS SSC... 


1817: 


1$: 


2$: 


3$: 


4$: 


SCOPE 
NOP 


DIAGNOSTIC MODE TEST 


>SCOPE CALL 
sSTART OF TEST 


ASTACK,SP INITIALIZE STACK POINTER 
$BASE ,RO RO = UNIBUS ADDRESS 
TSTQUE ,R1 :(R1) = DEVICE BEING TESTED | 
#7 ,S$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
PC,CNTCLR :GO ISSUE CONTROLLER CLEAR 
1$ \;G0 TO 1$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR NUMBER DEFINED BY SUBROUTINE 
21$ :GO TO 21$ IF ERROR 
ARMMRI,FUTINX  ;SETUP PUT INDEX TABLE 
#200,PUTINX+1 ;SET TERMINATOR BYTE 
#DMD ,RMMR10 SET RMMR1 OUTPUT BUFFER = DMD 


PC,PUT :GO WRITE RMMR1 VIA PUT SUBROUTINE 
2$ :GO TO 2$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUT INE 


21$ :G0 TO 21$ IF ERROR 
PC, GETSTS SSEIUP FOR STATUS FETCH 
PC,GET | ;GO READ REGISTER(S) WITH GET SUBROUTINE 
3$ :GO_TO 3% IF NO ERROR 
SRETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
21$ :GO TO 21$ IF ERROR 
ADMD AMRIT IS. DIAGNOSTIC MODE SET?? 
#OMD,SGDDAT  : EXPECTED STATUS | 
RMR I .SBDDAT RECEIVED STATUS 
21$ :$KIP REST OF TEST IF DMD = 0 
MOL .RMDS :13 "MOL" = 0 
RMDSI,$BDDAT SETUP BAD DATA FOR TYPEOUT 


#“CMOL , $BDDAT 
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291 012560 005037 001140 CLR SGDDAT :SETUP GOOD DATA FOR TYPEOUT 
292 012564 10417 EMT 170 
0125 032737 020000 001346 S$: BIT #PIP,RMDSI 71S PIP SET?? 
012574 001012 BNE 6$ YES!!! 
295 012576 013737 001346 001142 MOV RMDSI,$BDDAT ;SETUP BAD DATA FOR TYPEOUT 
012 042737 157777 001142 BIC #*CPIP, $BDDAT 
297 012612 012737 020000 001140 MOV #PIP ,SGDDAT sEXPECTED PIP SET 
298 012620 104200 EMT 200 
299 012 032737 004000 001346 6$: BIT AWRL ,RMDSI 31S WRITE LOCK OFF?? 
500 012630 0601411 BEQ 7$ :YES!! 
301 012632 013737 001346 001142 MOV RMDSI,$BDDAT >SETUP BAD DATA FOR TYPEOUT 
302 012640 042737 173777 001142 BIC #*CWRL ,$BDDAT 
303 012646 5037 001140 CLR $GDDAT sEXPECTED WRL = 0 
304 012652 104201 EMT 201 
305 012654 032737 040000 001376 7%: BIT #SKI,RMER2I 218 SKI = 0 
306 012662 001411 BEQ 8$ sYEes!! 
307 012664 013737 001376 001142 MOV RMER21,$BDDAT ;SETUP BAD DATA FOR TYPEOQUT 
308 012672 042737 137777 001142 BIC A“*CSKI,$BDDAT 
309 012700 005037 001140 CLR $SGDDAT _ ¢SKI SHOULD BE 0 
310 012704 104202 EMT 202 . | 
311 012706 032737 000200 001376 8$:: BIT ADVC..RMER2] 31S DEVICE CHECK = 0?? 
312 012714 001411 BEQ 9$ Vest! 
313 012716 013737 001376 001142 MOV RMER2I,$BDDAT ;SETUP BAD DATA FOR’ TYPEOQUT 
314 012724 042737 177577 001142 BIC #“CDVC,$BDDAT | 
315 012732 005037 001140 CLR $GDDAT | :DVC SHOULD BE 0 
316 012736 104203 EMT 203 
318 012740 112737 000024 001543 MOVB ARMMR1,PUTINX  ;SETUP PUT INDEX TABLE 
012746 112737 000200 001544 MOVB #200,PUTINX+1  ;:SET TERMINATOR BYTE 
012754 012737 001711 001434 MOV ADMD !MUR!MOC!'MSER'MDF 'MWP,RMMR10 ;SET RMMR1 OUTPUT BUFFER = DMD!MUR'IM 
012762 004737 043160 JSR PC ,PUT 760 WRITE RMMR1 VIA PU] SUBROUTINE 
012766 000404 BR 10$ :GO TO 10$ IF NO ERROR 
012770 000240 NOP ;RETURN HERE IF ERROR 
012772 104000 EMT sERROR DEFINED BY PUT SUBROUTINE 
012774 000137 013426 JMP 21$ :GO TO 21$ IF ERROR 
319 013000 10$: 
320 013000 004737 042710 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
013004 00040 BR 11$ :GO TO 11$ IF NO ERROR 
013006 000240 NOP :RETURN HERE IF ERROR ~~” 
013010 104000 , EMT | sERROR # DEFINED BY GET SUBROUTINE ss 
013012 000137 013426 JMP 21$ :GO TO 21$ IF ERROR 
321 013016 032737 000001 001360 17S: BIT #DMD,RMMR1 I 1S DIAGNOSTIC MODE SET?? 
322 013024 001011 BNE 12$ :VES!! , 
3 BIS 6 012737 000001 001140 MOV #DMD , $GDDAT sEXPECTED STATUS 
4 0130 013737 001360 001142 MOV RMMRII,$BDDAT ;RECEIVED STATUS 
5 013042 104176 EMT 176 
6 013044 000137 013426 JMP 21$ zSKIP REST OF TEST IF DMD = 0 
7? 013050 032737 010000 001346 12$: BIT #MOL ,RMDSI 23§ MOL = 17? rT 
8 013056 001012 BNE 13$ :YES!! 
29 013060 013737 001346 001142 MOV RMDSI.,$BDDAT :SETUP BAD DATA FOR TYPEOUT 
30 013066 042737 167777 001142 BIC #*CMOL , SBDDAT 
331 013074 012737 010000 11 MOV #MOL , SGDDAT :EXPECTED MOL = 1 
$3 013102 104170 EMT 
333 013104 032737 020000 001346 138: BIT #PIP RMDSI :I1S PIP = 0? 
334 0137712 Q01411 | BEQ | :VYES!! 
3$5 013114 013737 001346 001742 MOV RMDSI,$BDDAT :SETUP BAD DATA FOR TYPEQUT 
3386 0913222 042737 °57777 001142 BIC #*CPIP_SBDDAT 
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001410 


001376 


001142 
001140 
001142 


CLR SGDDAT sEMPECTED PIP STATUS 
EMT 200 
14%: BIT #URL .RMDS! 71S WRL SET?? 
BNE 15$ sYES!! 
MOV RMDSI.SBDDAT ;SETUP BAD DATA FOR TYPEQOUT 
BIC #*CWRL ,SBDDAT 
oar — sEXPECTED GOOD STATUS 
15$: BIT #SKI,RMER2I IS SKI SET?? 
BNE 163 sYEs!! 
MOV RMER2I.$BDDAT ;BAD DATA FOR TYPEOUT 
BIC #*CSKI.$BDDAT 
MOV #SKI,$GDDAT sEXPECTED SKI ON 
EMT 292 
16$: BIT #DVC,RMERZI 71S DvC SET ?? 
BNE 17$ svYES!! 
MOV RMER21,$BDDAT s;BAD DATA FOR TYPEOLIT 
BIC #*CDVC,SBDDAT 
MOV #DVC..$GDDAT sEXPECTED DVC ON 
EMT 203 
17$: BIT #VV.RMDSI 7MUR SHOULD HAVE RESET VOLUME VALID 
BEQ 18$ sBRANCH IF IT DID 
MOV RMDSI,$BDDAT ;BAD DATA FOR TYPEOUT 
BIC #*CVV,SBDDAT 
CLR SGDDAT GOOD DATA FOR TYPEOUT 
He EMT 204 
MOVB ARMCST,PUTINX  ;SETUP PUT INDEX TASLE 
MOVB #200,PUTINX+1 7SET TERMINATOR BYTE 
MOV #DRVCLR!GO,RMCS10 7SET RMCS1 OUTPUT BUFFER = DRVCLR'GO 
JSR PC ,PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
BR 19$ ;GO TO 19$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT sERROR DEFINED BY FUT SUBROUTINE 
_ JMP 21% :GO TO 21$ IF ERROR 
JSR PC,GET 3;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 20$ :GO TO 20$ IF NO ERROR 
NOP ;RETURN HERE JF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
JMP . 21$ :GO TO 21$ IF ERROR 
20$: BIT ALBC,RMERZ] $8 LR SET 7? 
BNE 21$ = YES! 
MOV RMER2ZI,S$BDDAT :BAD DATA FOR TYPEOUT 
MOV #LBC, $SGDDAT :GOOD DATA FOR TYPEQUT 
BIC #LBC, SBDDAT 
EMT 262 
21$: 
CE TREE EAE EAR AERA EEEREERERRERER REE Ee 
s*TEST 10 PACK ACKNOWLEDGE TEST 
CT RATER RARE RARER RARER REAR EEE EDS 
TST10: 
SCOPE sSCOPE CALL 
NOP sSTART OF TEST 
MOV MSTACK,SP INITIALIZE STACK POINTER 
MOV $BASE ,RO ;RO = UNIBUS ADDRESS 


C 
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PACK ACKNOWLEDGE TEST SEC 0095 


a —ceT 


073442 013701 001464 MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
in 013446 012737 600010 001226 MOV #10, $TESTN 3zSET TEST NUMBER IN APT MAIL BOX 
377 013454 004737 052264 JSR PC, CNTCLR 7GO ISSUE CONTROLLER CLEAR 
013460 000404 BR 1$ ;GO TO 1$ IF NO ERROR 
013462 000240 NOP “RETURN HERE IF ERROR 
013464 104 EMT ZERROR NUMBER DEFINED BY SUBROUTINE 
~ 01 eAe6 000137 013726 és JMP 8$ :GO TO 8$ IF ERROR 
379 013472 112737 000024 001543 MOVB #RMMR1,PUTINX  ;SETUP PUT INDEX TABLE 
13500 112737 000200 001544 MOVB #200,PUTINX+1  ;SET TERMINATOR BYTE 
013506 012737 000001 001434 MOV #DMD ,RMMR10 7SET RMMR1 OUTPUT BUFFER = DMD 
013514 004737 043160 JSR PC PUT :GO WRITE RMMR1 VIA PUT SUBROUTINE 
013520 000404 GR 2$ :GO TO 2$ IF NO ERROR 
013522 000240 NOP ;RETURN HERE IF ERROR 
013524 104000 EMT 7ERROR DEFINED BY PUT SUBROUTINE 
013526 000137 013726 JMP 8$ :GO TO 8$ IF ERROR 
380 013532 2s: 
381 013532 112737 000024 001543 MOVB ARMMR1,PUTINX  ;SETUP PUT INDEX TABLE 
613540 112737 000200 001544 MOVB #200,PUTINX+1  ;:SET TERMINATOR BYTE 
013546 012737 O00000 001434 MOV #0,RMMR10 - ;SET RMMR1 OUTPUT BUFFER = 0 
013554 004737 043160 JSR PC,PuT :GO WRITE RMMR1 VIA PUT SUBROUTINE 
013560 000404 BR 3$ :GO TO 3$ IF NO ERROR 
013562 000240 NOP “RETURN HERE IF ERROR 
013564 104000 EMT [ERROR DEFINED BY PUT SUBROUTINE 
13566 000137 013726 JMP 8$ :GO TO 8$ IF ERROR 
382 013572 3$: 
383 013572 112737 000000 001543 MOVB ARMCS1,PUTINX ;SETUP PUT INDEX TABLE 
013600 112737 000200 001544 MOVB #200,PUTINX+1 ;SET TERMINATOR BYTE 
013606 012737 000023 001410 MOV #PAKACK 'GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = PAKACK'GO 
013614 004737 043160 JSR PC ,PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
013620 0004 BR 4$ :GC TO 4$ IF NO ERROR 
013622 000240 NOP ;RETURN HERE IF ERROR 
013624 104000 EMT ERROR DEFINED BY PUT SUBROUTINE 
013626 000127 013726 JMP Ag :GO TO 8$ IF ERROR 
384 013632 004727 04642624 4$: JSR PC,GETSTS 
a: 013636 004737 043522 JSR PC, TIMOUT :WAIT FOR COMPLETION 
387 013642 004737 042710 JSR PC,GET 60 READ REGISTER‘S) WITH GET SUBROUTINE 
13646 000403 BR s$ O 5$ IF NO ERROR 
013650 000240 NOP RETURN HERE IF ERROR 
C13652 104900 EMT sERROR # DEFINED BY GET SUBROUTINE 
013654 000424 we at = SKIP REMAINDER OF TEST 
389 013656 S$: 
390 013656 004737 043706 JSR PC .PRIERR 3GO CHECK FOR PRIMARY ERRORS 
013662 000404 rR 6$ -GO TO 6$ IF NO ERROR 
013664 000240 NOP “RETURN HERE IF ERROR 
013666 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
913670 004736 JSR PC, a(SP)+ >GO BACK FOR MORE ERROR CHECKS 
391 013672 000415 KR 8$ :SKIP TO NEXT TEST 
392 013674 6$: 
393 013674 0047357 053262 JSR PC,ACKSTS : 60 VERIFY A ACKNOWLEDGE 
013700 000404 RR 7$ O 7$ IF NO ERROR 
013702 000240 NOP RETURN HERG IF ERROR 
013704 104 EMT sERROR # DEFINED BY ACKSTS SUSROUTINE 
0137 004736 JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
394 013710 000406 ihe 8$ ;SKIP TO NEXT TEST 
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395 


396 013712 


397 


401 


402 


405 
404 


405 
406 


407 
408 


0 
013726 


013726 


013762 
01 5766 


013770 


014036 
014042 
014046 


014052 
0 


004737 
000403 
000240 

000 


012737 


004737 
050020 


004737 
000405 


044540 


001100 


041650 
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000000 
000200 


000007 
043160 


014144 
042624 
043522 


042710 


014144 
043706 


014144 
054056 
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007206 
001226 


001543 
001544 
001410 


7$: 


8$: 


PC,SECERR i's ie FOR tne ERRORS 
8$ O 8$ IF NO ERROR 

RE TURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
PC ,a@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 


SC RARER RRA RRA RE REREAD ERE 


:eTEST 11 


ialieieliet tt ttt tthe PRPC EEE EEEALAALELEELAALE 


tér11: 


1$: 


2$: 


3$: 


4$: 


RECALIBRATE TEST 


: SCOPE CALL 
=START OF TEST 
#STACK,SP : INITIALIZE STACK POINTER 
$BASE ,RO :RO = UNIBUS ADDRESS 
TSTOUE . R1 :(R1) = DEVICE BEING TESTED 
STIMES £520 1 ITERATION 
AF »STESIN -;SET TEST NUMBER IN APT MAIL BOX 
PC ATSTPRP :PREPARE DEVICE FOR TEST 


: TASK DESCRIPTOR AS FOLLOWS: 
; CLEAR CONTROLLER & SELECT DEVICE 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
1$ :GO0 TO 1$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
6$ :GO TO 6$ IF ERROR 


A#RMCS1,PUTINX  ;SETUP PUT INDEX TABLE 
#200, PUTINX+1 ;SET TERMINATOR BYTE 
#RECAL !GO,RMCS10 ;SET RMCS1 OUTPUT BUFFER = RECAL!C9 
PC,PUT ;GO WRITE RMCS1 VIA PUT SUBROUTINE 
2s :GO TO 2$ IF NO ERROR 
;RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SNOUT INE 
6$ :GO TO 6$ IF ERROR 
PC,GETSTS :GO SETUP FOR STATUS FETCH 
PC ,TIMOUT ;WAIT FOR COMPLETION 
PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
3$ :GO TO 3$ IF NO ERROR 


:RETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
6$ :GO0 TO 6$ IF ERROR 


PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
4$ :GO TO 4$ IF NO ERROR 
;RETURN HERE IF ERROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 
PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
6$ :GO TO 6$ IF ERROR 
PC,RCLSTS ;GO VERIFY RECALIBRATE OPERATION 
5$ ;GO TO 5$ IF NO ERROR 


SEQ 0094 


a, EE eee Se ee >< 


LS A CS a NE Gre 


=~ | ae 


eel fae” | 
-? 


418 
419 


420 
421 


422 


423 
0 


424 
425 
426 
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RECALIBRATE TEST 


014172 


014200 
014204 


014206 


014314 
014320 
014324 


004737 
000403 
000240 
104000 
004736 


000004 


012737 


004737 
054130 


000404 


1127357 
112737 
012737 
004737 
000404 
000240 
104000 
000137 
112737 


014144 
044540 


001100 
001276 
001464 
000001 
000012 


041650 


014452 
000014 
000200 


040000 
043160 


014452 


000000 


0435160 


014452 
042624 


042710 
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001206 
001226 


001543 
001544 
001424 


001543 
001544 
001410 


NOP ;RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY RCLSTS SUBROUTINE 
JSR PC ,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
a MP 6$ *GO TO 6$ IF ERROR 
JSR PC, SECERR 60 CHE CK FOR SECONDARY ERRORS 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY SECERR SUBROUTINE 
- JSR PC, a(SF)+ *GO BACK FOR MORE ERROR CHECKS 
. ‘it hehe eee ee PRP PPPS SASEASALELELEEELEAE SE 
“TEST 12 ABORT RECALIBRATE TEST 
*: itRSS eee RRR RRR ERR RRR RRR SEES EE SER ERE S OS ESE SESCSOCLCCCCC.e. Ce. ST 
TST12: 
SCOPE :SCOPE CALL 
NOP “START OF TEST 
MOV #STACK,SP : INITIALIZE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
MOV #1, $TIMES *:DO 1 ITERATION 
MOV #12, $TESTN ::SET TEST NUMBER IN APT MAIL BOx 
JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
-WORD 054130 :TASK DESCRIPTOR AS FOLLOWS: 
>CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
[RECALIBRATE IF ‘'SKi'’ OR 'PIP’' IS SET 
“VERIFY RECALIBRATION 
BR 1$ -GO TO 1$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
si JMP 9$ :GO TO 9$ IF ERROR 
MOVB § #RMERT,PUTINX  ;SETUP PUT INDEX TABLE 
MOVB #200,PUTINX+1  =SET TERMINATOR BYTE 
MOV #UNS .RMER10 :SET RMER1 OUTPUT BUFFER = UNS 
JSR PC PUT =GO WRITE RMERT VIA abut SUBROUT INE 
BR 2$ :GO TO 2$ IF NO ERR 
“ “NOP “RETURN HERE IF ERROR 
EMT “ERROR DEFINED BY PUT SUBROUTINE 
‘ss MP 9$ =GO TO 9$ IF ERROR 
MOVB #RMCS1,PUTINX  ;SETUP PUT INDEX TABLE 
MOVB  #200,PUTINX+1 :SET TERMINATOR BYTE 
MOV #RECAL 'GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = RECAL'GO 
JSR PC PUT :60 WRITE RMCS1 VIA PUT SUBROUTINE 
BR 3$ 0 TO 3$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT “ERROR DEFINED BY PUT SUBROUTINE 
MP 9$ *GO TO 9$ IF ERROR 
3$: JSR PC,GETSTS :SETUP FOR STATUS FETCH 
JSR P° GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 


oo RMO5/3/2 FCTNL 
ABORT RECALIBRATE TEST 
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0001 37 
004737 
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004737 


004736 


000004 
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004737 
054130 


000404 
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000001 
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001 346 


001206 
001226 


4$: 


S$: 


6$: 


7$: 


8$: 


9$: 


4$ 


9$ 
#PIP,RMDS] 
5$ 


214 
PC,TIMOUT 
PC,GET 

6$ 


9$ 
PC,PRIERR 
7$ 


PC,a(SP)+ 
9$ 


PC,STCDRVSTS 
8$ 


PC ,a@(SP)+ 
9$ 


PC,SECERR 
9$ 


PC,a(SP)+ 


:GO TO 4$ IF NO ERROR 


sRETURN HERE IF ERROR 

ete a on - GET SUBROUTINE 
:GO TO 9$ IF ERR 

aot THE DRIVE RECAL IBRATE ?? 


sWAIT FOR COMPLETION 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO_ TO 6$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED - GET SUBROUTINE 

:GO TO 9$ IF ERRO 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 7$ IF NO ERROR 
sRETURN HERE IF ERROR 


;ERROR # DEFINED BY PRIERR SUBROUT i NE 
>GO BACK FOR MORE ERROR CHECKS 
:GO TO 9$ IF ERROR 


:GO CHECK FOR B ge 2s IN DRIVE STATUS 
;GO TO 8$ IF NO ERROR 
:RETURN HERE IF ERROR 


;ERROR # DEFINED BY STCORVSTS SUBROUT I NE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 9$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 

:GO TO 9$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


u SERRE ERE EEE AEE EEE EE KARE EEEERERARERAREEREERAERRERERRE KEE EE 


S*TEST 13 


TST13: 


BR 


IVC RECALIBRATE TEST 


° J ERE EKER EKER EERE AREER EERE ERE EEE 


#STACK,SP 
SBASE ,RO 
TSTQUE ,R1 
#1, $TIMES 
#13, $TESIN 


PC, TSTPRP 
054130 


sSCOPE CALL 

sSTART OF TEST 

: INITIALIZE STACK POINTER 
;RQ = UNIBUS ADDRESS 


3(R1) = oenatt BEING TESTED 
ATION 


: £00 1 ITERA 


:SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 

7; TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 


;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF "'SKI'' OR ‘PIP'’ IS SET 
: VERIFY RECALIBRATION 


:GO TO 1$ IF NO ERROR 


SEQ 00% 


446 
447 


448 
449 
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004737 
004737 


0001 37 


004737 
000405 


104215 
004737 


014762 


043160 


014762 
000024 


043160 


014762 
000000 
000200 


000007 
043160 


014762 
042624 
043522 


042710 


014762 
043706 


014762 
010000 


044540 
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001543 
001544 
001434 


001543 
001544 
N01434 


001543 
007544 
001410 


001376 


3$: 


4$: 


5$: 


6$: 


7$: 


NOP 

EMT 

JMP 8$ 

MOVB #ARMMR1 , PUT INX 
MOVB #200, PUTINX+1 
MOV #DMD ,RMMR10 
JSR PC PUT 

BR 2$ 

NOP 

EMT 

JMP 8$ 

MOVB ARMMR1 , PUT INX 
MOVB #200,PUTINX+1 
MOV #0,RMMR10 
JSR PC,PUT 

BR 3$ 

NOP 

EMT 

JMP 8$ 

MOVB ARMCS1 ,PUT INX 
MOVB #200,PUTINX+1 
MOV ARECAL !GO,RMCS10 
JSR PC,PUT 

BR 4$ 

NOP 

EMT 

JMP 8$ 

JSR PC,GETSTS 

JS PC, TIMOUT 
JSR PC,GET 

BR 5$ 

NOP 

EMT 

JMP 8$ 

JSR PC,PRIERR 

BR 6$ 

NOP 

EMT 

JSR PC ,a(SP)+ 
JMP 8$ 

BIT #IVC,RMER2] 
BNE 7$ 

EMT 215 

JSR PC,SECERR 

BR 8$ 

NOP 

EMT 

JSR PC,a(SP)+ 


&$: 


STRATE EERE AREER EARRAREREIE AERA EERE REE R EER HATER ES 


sRETURN HERE IF ERROR 
sERROR # 6a BY TSTPRP SUBROUTINE 
:GO TO 8$ IF ERROR 


sSETUP PUT INDEX TABLE 
A TERMINATOR BYTE 


;SET RMMR1 OUTPUT BUFFER = DME 

:GO WRITE RMMR1 VIA PUT SUBROUT I NE 
:GO TO 2$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 8$ IF ERROR 


sSETUP PUT INDEX TABLE 

;SET TERMINATOR BYTE 

;SET RMMR1 OUTPUT BUFFER = 

:GO WRITE RMMR1 VIA PUT SUBROUTINE 
:GO TO 3$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 8$ IF ERROR 


:SETUP PUT INDEX TABLE 
:SET TERMINATOR BYTE 


;SET RMCS1 OUTPUT BUFFER = RECAL!GO 


;GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 4$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GOQ TO 8$ IF ERROR 

-SETUP FOR STATUS FETCH 

sWAIT FOR RECAL TO COMPLETE 


eo + REGISTER(S) WITH GET SUBROUTINE 
O 5$ IF NO ERROR 
‘RETURN HERE IF ERROR 


;ERROR # DEFINED BY GET SUBROUTINE 


:GO TO 8$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 6$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 8$ IF ERROR 

:1V€ SHOULD BE SET 

:I1T [S = GO CHECK SECONDARY ERRORS 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 8$ IF NO ERROR 
:RETURN HERE IF ERROR 


:ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 


oe 


Se te nett eee 


reteset ste 


SS eres eee ener LL SSS sa 
. 


MMBO RMOS/3/2 FCTNL TST 1 


IAE RECALIBRATE TEST 


014762 


015010 


015016 
015022 


464 
405 


615024 


466 015036 
467 015036 
468 015044 
469 015052 
470 015060 


MOASOOLSMOGOM ANMAOLMOFS 


SNAAAUUWMUIE EE WIN Romo eS =O 
SARSSF 


ee ce ee ee wee eed wd oe od ed eed ed eed od od = 
MAAAYIVMANANVIWMAUA YI UAW UU MUAAWAUWAW VV 
Oe ed dk ed od dd = od = 3 ee ee eed eed eee eed od 5 


QOOCSCOOCOSOVSSCSCOOOSO COCOCOCOO 


000004 


012737 


004737 
054130 


000404 
000240 
104000 
000137 


012737 


004739 
004737 


060137 
004737 


001100 
001276 
001464 
000001 001206 
000014 001226 


0417650 


015224 
177777 =001444 


177777 001416 
000007 001410 
001543 


043160 


015224 
042624 
043522 


42710 


015224 
043706 


015224 
054056 


s*TEST 14 


. Pieliallielelelelaieleieeieiti tet ee RPP REEEREAZEELEALEELE EY 


TST14: 


1$: 


2$: 


$$: 


4$: 
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IAE RECALIBRATE TEST 


sSCOPE CALL 
:START OF TEST 


ASTACK,SP INITIALIZE STACK POINTER 
$BASE ,RO ;RO = 


SE, UNIBUS ADDRESS 
TSTQUE ,R1 = (R1) = Ah BEING TESTED 
#1 ,$TIMES ::D0 1 ITERATION 
#14, $TESIN SET TEST NUMBER IN APT MAIL BOX 
PC,TSTPRP sPREPARE DEVICE FOR TEST 


054130 : TASK DESCRIPTOR AS FOLLOWS: 
sCLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ''SKI'' OR 'PIP’’ IS SET 
; VERIFY RECALIBRATION 
1$ :GO TO 1$ IF NO ERROR 
sRETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
6$ :GO TO 6% IF ERROR 


#-1,RMDCO sRMDC WILL BE ALL ONES 


4-1 ,RMDAO sRMDA WILL BE ALL ONES 
ARECAL !GO,RMCS10 
APUTINX,R2 sR2 POINTS TO PUT INDEX TABLE 
ARMDC, (Re) + sSETUP PUT INDEX TABLE 
#RMDA, (R2)+ 
ARMCS1, (R2) + 
#200, (R2)+ 
PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
2$ :GO TO 2$ IF NO ERROR 
sRETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 
6$ :GO TO 6$ IF ERROR 
PC.GETSTS ;SETUP FOR STATUS FETCH 
PC,TIMOUT sWAIT FOR GO TO RESET 
PC,GET A READ REGISTER(S) WITH GET SUBROUTINE 
3$ O TO 3$ IF NO ERROR 


“RETURN HERE IF ERROR 
:ERROR # DEFINED BY GET SUBROUTINE 
6$ :GO TO 6$ IF ERROR 


PC,PRIERR ;GO CHECK FOR PRIMARY ERRORS 
4$ ;GO TO 4$ IF NO ERROR 
:RETURN HERE IF ERROR 
sERROR # DEFINED BY PRIERR SUBROUTINE 
PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
6$ :GO TO 6$ IF ERROR 
PC,RCLSTS :GO VERIFY ReCALIBRATE OPERATION 
5$ ;GO TO 5$ IF NO ERROR 


:RETURN HERE IF ERROR 
sERROR #4 DEFINED SY RCLSTS SUBROUTINE 


SiG UUYS 


St eas RMO5/3/2 FC 
TAE RE CALIBRATE 


485 


489 
490 


49 | 
492 


493 
494 


015260 
015264 


Nm 
SOOOnNNN 
OOfsNO 


MMM AVIA AUT 
SMOADMEO 


DEH PD teteetet et eeee bt pha 
a WSS SWAN 
MEAOO 


SN NS 


COOOCCOCCOCOCOOSCCOOCCCOCOO 
WVIAAMA AAAI SIU UIT 


\NWw 
oO 
© 


004736 
000137 


004737 
3 


012737 


004737 
050020 


000404 
000240 
104000 
000137 


112737 


000137 
112737 


000137 


004737 


004737 


TNL TST 7 


TES? 


015224 
044540 


001100 
001276 
001464 
0C0001 
000015 


041650 


015502 
000000 


043160 


015502 


043160 


075502 


042624 


043522 
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001206 
001226 


001543 
001544 
0014170 


001543 
001544 
001410 


S$: 


6$: 


PC ,a(SP)+ 
6$ 


PC, SECERR 
6$ 


PC,a@(SP)+ 


16 


:GO BACK FOR MORE _— CHECKS 
;60 TO 6$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 6$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


° ieee t it te tee ee eee eee eee PERC PP SEES EAC SCASCALACL. SS 


Z*TEST 15 


TST15: 


1$: 


2$: 


3$: 


RECALIBRATE AT OFFSET 


24 RARER KEKE REE HERRERA ERERR ERE 


ASTACK,SP 
$BASE ,R 
TSTQUE ,R1 
#1, $TIMES 
#15, $TESTN 


PC, TSTPRP 
050020 


1$ 


7$ 


#ARMCS1,PUTINX 
#200,PUTINX+1 


PC ,PUT 
2$ 


7$ 


ARMCS1, PUT INX 
#200,PUTINX+1 
#RECAL '!GO,RMCS10- 
al 


7$ 


sSCOPE CALL 
sSTART OF TEST 


sINITIALIZE STACK a 

;RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 
:DO 1 ITERATION 


“SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

sCLEAR CONTROLLER & SELECT DEVICE 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 

:GO TO 1$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
;GO TO 7$ IF ERROR 


>SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 
#OFFSET!GO,RMCS10 


sSET RMCS1 OUTPUT BUFFER = OFFSET!GO 


:GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 2$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 7$ IF ERROR 


;SETUP PUT INDEX TABLE 


:SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = 
;GO WRITE RMCS1 VIA PUT SUBROUTINE 
;GO TO 5$ IF NO ERROR 


RECAL ! GO 


:RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
;GO TO 7$ IF ERROR 


> SETUP ores TABLE TO READ ALL REGISTERS 
J 


PC,GETSTS 


iWAIT that spies Hk. TO COMPLETE 


PC, TIMOUT 


:GQ TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


RMO5/3/2 FCTNL TST 1 
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RECALIBRATE AT OFFSET 
1 015410 004737 042710 JSR PC,GET G0 READ REGISTER(S) WITH GET SUBROUTINE 
015414 000404 BR 4$ -GO TO 4$ IF NO ERROR 
015416 000240 NOP + RETURN HERE IF ERROR 
015420 104000 EMT :ERROR # DEFINED BY GET SUBROUTINE 
013422 000137 015502 - jMP 7$ “GO TO 7$ IF ERROR 
015426 004737 043706 JSR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
15432 000405 BR 5$ -GO TOC 5$ IF NO ERROR 
015434 000240 NOP “RETURN HERE IF ERROR 
015436 104000 EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
015440 004736 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
015442 000137 015502 - MP 7$ -GO TO 7$ IF ERROR 
015446 004737 054056 JSR PC,RCLSTS :GO VERIFY RECAL IBRATE OPERATION 
015452 000405 BR 6$ -GO TO 6$ IF NO ERR 
015454 000240 NOP “RETURN HERE IF ERROR 
015456 104000 EMT “ERROR # DEFINED BY RCLSTS SUBROUTINE 
015460 004736 JSR PC. a(SP)+ -GO BACK FOR MORE ERROR CHECKS 
015462 000137 015502 . JMP 7$ -GO TO 7$ IF ERROR 
015466 004737 044540 SR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
015472 000403 BR 7$ -GO TO 7$ IF NO ERROR 
015474 000240 NOP “RETURN HERE IF ERROR 
015476 104000 EMT “ERROR # DEFINED BY SECERR SUBROUTINE 
015500 004736 JSR PC, a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
508 015502 7$: = 
510 SRR KKK EERE EEK KR ERK KKK KK KEKE ER EEK 
“STEST 16 DRIVE CLEAR TEST 
SARK RRR KR ERARRKREKRERERKKKEKKKKEKERKEREKKEKKKK KEKE 
015502 1ST 16: 
015502 000004 SCOPE :SCOPE CALL 
015504 000240 NOP “START OF TEST 
015506 012706 001100 MOV #STACK,SP : INITIALIZE crack POINTER 
015512 013700 001276 MOV $BASE .R “RO = UNIBUS ADDRESS 
015516 013701 001464 Mv TSTQUE .R1 :(R1) = DEVICE BEING TESTED 
me 015522 012737 000016 001226 MOV #16,$TESIN “;SET TEST NUMBER IN APT MAIL BOX 
512 015530 004737 041650 JSR PC. TSTPRP :PREPARE DEVICE FOR TEST 
015534 054130 -WORD 054130 “TASK DESCRIPTOR AS FOLLOWS: 
=CLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
“PACK ACKNOWLEDGE IF VOLUME NOT VALID 
=VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘'SKI'' OR 'PIP’’ IS SET 
“VERIFY RECALIBRATION 
015536 000404 BR 1$ -GO TO 1$ IF NO ERROR 
015540 000240 NOP “RETURN HERE IF ERROR 
015542 104000 EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
015544 000137 015752 JMP 6$ =GO TO 6$ IF ERROR 
513 015550 1$: 
514 015550 012737 000000 001416 MOV. #0..RMDAO 
515 015556 012737 000011 001410 MOV #DRVCLR'GO,RMCS10 
516 015564 012737 177777 001424 MOV #-1,RMER10 
517 015572 012737 177777 001452 MOV #-1.RMER20 
518 015600 042737 004000 00145? BIC #LSC,RMER2O :DELETE FOR PASS 2 ETCH 
519 015606 012702 001543 MOV #PUTINX,R2 *R2 POINTS TO INDEX TABLE 


LL TT TR eR RS ne 


— RMOS/3/2 FCTINL TST 1 


536 
537 


541 
542 


DRIVE CLEAR TEST 


015612 


015752 


015752 


000426 
004737 


000403 


012737 


004737 
054130 


000006 


043160 


042624 
04352¢ 


042710 


043706 


015752 
055620 


015752 
044540 


001100 


000017 
041650 


001226 


2$: 


3$: 


4$: 


ae 


6$: 


EMT 
JSR 


ARMDA, (R2) + 
#RMER2, (R2)4 
ARMER1, (R27) + 
A#RMLS1,(R2)+ 
sh (R2)* 
PC PUT 


6$ 
PC,GETSTS 
PC, TIMOUT 


PC,GET 
3$ 


6$ 
PC,PRIERR 
4$ 


PC ,a(SP)+ 
6$ 


PC ,DRVSTS 
5$ 


PC ,a(SP)+ 
6$ 


PC,SECERR 
6$ 


PC,@(SP)+ 


K 8 
MACRO VQ4.00 4=APR=81 11:43:28 PAGE 13-18 


sRMDA CLEARS LBT 


:GO TO 2$ IF 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 
sESCAPE IF ERROR 

;SETUP FOR STATUS FETCH 


:GO WRITE pg tg WITH PUT SUBROUTINE 


:WAIT FOR DRIVE CLEAR TO COMPLETE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
;GO TO 3$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


:SKIP REMAINDER OF TEST 


+ GO CHECK FOR PRIMARY ERRORS 
O TO 4$ IF NO ERROR 
RE TURN HERE IF ERROR 


;ERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 6$ IF ERROR 


:GO VERIFY DRIVE CLEAR 

:GO TO 5$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY DRVSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 6$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 6$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY SECERR SUBROUT INE 
:GO BACK FOR MORE ERROR CHECKS 


STEERER EKER EERE EEE ERE EREEEKEEREERE KEKE ER 


SRTEST 17 


GREATER RARER KEE EEE REAR ARREREE KEKE 


1S117: 


NOP TEST 


ASTACK,SP 
$BASE ,RO 
TSTQUE ,R1 
#17,$TESTN 


PC,TSTPRP 
054130 


prSET 


;PREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

sCLEAR CONTROLLER & SELECT DEVICE 

> VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 


sSCOPE CALL 
START OF TES! 


> INITIALIZE STACK POINTER 

;RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 

TEST NUMBER IN APT MAIL BOX 


reine ee ee 


C 
TI? 


01 
543 


544 


552 


553 
0 


554 
555 


556 
557 
558 


016200 
016202 


016202 


ZRMMBO RMO5/3/2 FETAL 
1 NOP TEST 


000137 
112737 


104000 
000137 
004737 
004737 


TST 1 


016202 
000000 
000200 
000001 
043160 


016202 
042624 


042710 


016202 
043706 


016202 


050400 


016202 
057766 


016202 
044540 
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001543 
001544 
001410 


sRECALIBRATE IF ‘'SKI'’ OR ‘PIP’' IS SET 
+ RECAL IBRATION 


BR 1$ :GO TO 1$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
a JMP 7$ :GO TO 7$ IF ERROR 
MOVB  #RMCS1,PUTINX ;SETUP PUT INDEX TABLE 
MOVB #200,PUTINX+1 SET TERMINATOR BYTE 
MOV #NOP'GO,RMCS10 SET RMCS1 OUTPUT BUFFER = NOP!GO 
JSR PC ,PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
BR 2$ :GO TO 2$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ;ERROR DEFINED BY PUT SUBROUTINE 
JMP 7$ :GO TO 7$ IF ERROR 
23: JSR PC,GETSTS :SETUP FOR STATUS FETCH 
JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 3$ :GO TO 3$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY GET SUBROUTINE 
i JMP 7$ :GO TO 7% IF ERROR 
JSR PC PRIERR ;GO CHECK FOR PRIMARY ERRORS 
BR 4$ :GO TO 4$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT :ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR. PC, a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
P JMP 7$ :GO TO 7$ IF ERROR 
JSR PC,CMPERRSTS — ; CHECK ANY ERRORS NOT MASKED 
.WORD NDTMSK ;MASK FOR RMER1 
-WORD DPE :MASK FOR RMER2 
BR 5$ :GO TO 5$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
a JMP 7$ :GO TO 7$ IF ERROR 
JSR BC-STCDR “TS G0 CHECK FOR CHANGES IN DRIVE STATUS 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP ;RETURN HERE I; ERROR 
EMT ;ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
o JMP 7$ :GO TO 7$ IF ERROR 
JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 7$ :GO TO 7$ IF NO ERROR 
NOP a ;RETURN HERE IF ERROR 
EMT 3 ;ERROR # DEFINED BY SECERR SUBROUTINE 
- JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
e CARRERE REE EEE ERE EERE ERE EERE REAR EEEEER ERE REESE 
Z*TEST 20 OFFSET TEST 


Sa ee ee ae See N See SSeS ROR IR Se SORA PORT ROS He TES 


1§120: 


SEQ 0102 


OF FSET 
016202 


016222 
559 
560 016250 
016234 


016236 


561 616250 
562 ae ty 


SSSI 
™~ 
SBHNRALAINASS 


00 Oo 
wy— 


CZRAMBO RMO5/3/2 FCTNL 
F20 TEST 


013700 
013701 
012737 


004737 


054130 


000404 


TST 1 


001100 


900020 
041650 


016526 
000000 


043160 


016526 
042624 
043522 


042710 


016526 
043706 


016526 
000001 


001346 
177776 
000001 
100000 
001346 
077777 
100000 


050400 
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007226 


001543 
001544 
001410 


001546 


001142 
001142 
001140 


001346 
001142 


001142 
001140 


2$: 


3$: 


4$: 


5$: 


6$: 


ASTACK,SP 
$BASE ,RO 
TSTQUE ,R1 
#20, $TESTN 


PC, TSTPRP 
054130 


1$ 


9$ 


ARMCS1,PUTINX 
#200 ,PUTINX+1 
#OF F SET!GO,RMCS10 


PC,PUT 
2$ 


9$ 
PC,GETSTS 
PC, TIMOUT 


PC,GET 
3$ 


9$ 
PC,PRIERR 
4$ 


PC ,@(SP)+ 
9$ 
#0M,RMDSI 
5$ 


RMDSI,$BDDAT 
#“COM, $BDDAT 


#0M,$GDDAT 
156 
#ATA,RMDSI 
6$ 


RMDS1,$BDDAT 
#“CATA, $BDDAT 
HATA, $GDDAT 
172 


PC,CMPERRSTS 


St * f) f)< 
- — 


sSCOPE CALL 
sSTART OF TEST 


s INITIALIZE STACK POINTER 
‘RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOI.LOWS: 

;CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VAL ID 
7 VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI'’ OR ‘PIP’ IS SET 
: VERIFY RECALIBRATION 

:GO TO 1$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
;GO TO 9$ IF ERROR 


sSETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = 
;GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 2$ IF NO ERROR 
;RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 9$ IF ERROR 
:SETUP FOR STATUS FETCH 
sWAIT FOR GO TO RESET 


+60 READ REGISTER(S) WITH GET SUBROUTINE 
TO 3$ IF NO ERROR 

“ RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:G0 TO 9$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
;GO TO 4$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

;GO TO 9$ IF ERROR 

OFFSET MODE ON?? 

:BAD DATA FOR TYPEOUT 

:GOOD DATA FOR TYPEOUT 

;WAS ATTENTION SET ?? 

s¥ES<; 

:BAD DATA FOR TYPEOUT 


;GOOD DATA FOR TYPEOUT 


OF FSET! GO 


7CHECK ANY ERRORS NOT MASKED 


| CZRMMBO RMO5/3/2 FCTNL 
r20 OrFSET TEST 


583 
584 


585 
586 


ay 


ww 
oo 
Wry 


59% 


SOO DODODOVDOOO 
—_ —S el ee eed ed od ed 
OO ACOH 
VIN MNWMMWWNUMN 
Own &PWwinwrr 
Of BruGMwortn 


SSSSS 
PNaseeTasee 


a 


ee a ed es eed os 


&S. 
¥ 


“115760 
10 


004736 


000004 


012737 


004737 
054130 


— - eee —--~ ae 
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:MASK FOR RMER1 
sMASK FOR 
:GO TO 7$ IF NO ERROR 


RMER2 


:RETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 9$ IF -ERROR 


:GO CHECK FOR CHANGES IN DRIVE STATUS 
:GO TO 8$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY STCDRVSTS SUBROUT INE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 9$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 9$ IF NO ERROR 
:RETURN HERE IF ERROR 


;ERROR # DEFINED BY SECERR SUBROUT I NE 
:GO BACK FOR MORE ERROR CHECKS 


SD EK K KEKE K KKK KKK EKKKEKEEEKEEKK 


eclectic lesan laclshctisbaln ila haleahndia nbabaindalalainiadababaiolade 


TST 7 MACRO V04.00 

. WORD ND TMSK 

.WORD DPE 

BR 7$ 

NCP 

EMT 

JSR PC ,a(SP)+ 
016526 - JMP io) 5 
057766 JSR PC,STCDRVSTS 

BR 8$ 

NOP 

EMT 

JSR PC ,a(SP)+ 
016526 JMP 9$ 
044540 JSR PC,SECERR 

&R 9$ 

NOP 

EMT 

JSR PC, a(SPi+ 

9$: 
:*TEST 21 GO/ATA TEST 
1ST21: 

SCOPE 

NOP 
001100 MOV ASTACK,SP 
001276 MOV SBASE ,RO 
001464 MOV TSTQUE ,R1 
000021 001226 MOV #21,$TESIN 
041650 JSR PC, TSTPRP 

-WORD 054130 

F BR 1$ 

NOP 

EMT | 
017146 Z JMP 12$ 
000000 001543 MOVS #RMCS1, PUT INX 
000200 001544 MOVB #200, PUTINX+1 
000015 001410 MOV 
043160 JSR PC ,PuT 

BR 2$ 

NOP 

EMT 
017146 JMP 12$ 
0426246 c$ JSR PC.GETSTS 
042710 JSR PC GET 


#OF F SET'GO,RMCS10 SET RMCS1 


sSCOPE CALL 

sSTART OF TEST 

s INITIALIZE STACK POINTER 

;%0 = UNIBUS ADDRESS 

>(R1) = DEVICE BEING TESTED 

:sSET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

>CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 

; PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI'' OR 'PIP'' IS SET 


VERIFY RECALIBRATION 


:GO TO 1$ IF NO ERROR 
;RETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 


:GO TO 12$ IF ERROR 


:SETUP PUT INDEX TABLE 

;SET TERMINATOR BYTE 

OUTPUT BUFFER = 
;GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 2$ IF NO ERROR 

[RETURN HERE IF ERROR 


OF FSET!GO 


>ERROR DEFINED BY PUT SUBROUTINE 
:GO TO 12$ IF ERROR 
: SETUP TO READ ALL REGISTERS 


7GO READ REGISTER(S) WITH GET 


SUBROUTINE 


SEQ 0104 


———— . 


— 


LLL LL AT CO CTE etait, 


B 9 
a RMOS/3/2 ot he. TST 7 MACRO VO06.00 4-APR-81 11:43:28 PAGE 12-22 


GO/ATA TES SEG 0105 
016644 000404 BR 3g :GO TO 3$ IF NO ERROR 
016646 240 NOP SRETURN HERE IF ERROR 
016650 104000 EMT | : ERROR z DEF INCD BY GET SUBROUTINE 
016652 000137 017146 MP 12$ GO TO 12$ IF ERROR 

597 016656 032737 100000 001346 3S: BIT #ATA,RMDS! 31S ATTENTION SET? 

598 016664 001012 BNE 4$ “YES! 

599 016666 012737 100000 001140 MOV #ATA,$GDDAT :GOOD DATA FOR TYPEOUT 

600 016674 013737 001346 001142 MOV RMDSI,$BDDAT §_:BAD DATA FOR TYPEOUT 

601 016702 042737 077777 001142 BIC #°CATA, $BDDAT 

602 016710 104172 EMT "72 

603 016712 4$: 

604 016712 006737 050400 JSR PC,CMPERRSTS |: CHECK ANY ERRORS NOT MASKED 
016716 000000 .wORD 0 “MASK FOR RMER1 
016720 000000 -WORD 0 :MASK FOR RMER2 
016722 0004605 BR 5$ :GO TO 5$ IF NO ERROR 
016724 000240 NOP :RETURN HERE IF ERROR 
016726 104000 EMT ;ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
016730 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
016732 000137 017146 JMP 12$ :GO TO 12$ IF ERROR 

605 016736 S$: 

606 016736 112737 000000 001543 MOVB §#RMCS1,PUTINX =SETUP PUT INDEX TABLE . 
016744 112737 000200 001544 MOVB #$ #200,PUTINX+1  =SET TERMINATOR BYTE 
016752 012737 000001 001410 MOV #NOP'GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = NOP!‘GO 
016760 004737 043160 JSR PC, PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
016764 0004604 BR 6$ :GO TO 6$ IF NO ERROR 
016766 000240 NOP :RETURN HERE IF ERROR 
016770 104000 EMT ;ERROR DEFINED BY PUT SUBROUTINE 
016772 000137 017146 JMP 12% :GO TO 12$ IF ERROR 

607 016776 6$: 

608 016776 004737 042710 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 

17002 000404 BR 7$ :GO TO 7$ IF NO ERROR 

017004 000240 NOP “RETURN HERE IF ERROR 
017006 104000 EMT *: ERROR # DEFINED BY GET SUBROUTINE 
17010 000137 017146 JMP 12% :GO TO 12$ IF ERROR 

609 017014 7$: 

610 017014 604737 043706 JSR PC PRIERR :GO CHECK FOR PRIMARY ERRORS 
017020 000405 BR 24 :GO TO 8$ IF NO ERROR 
017022 000240 NOP :RETURN HERE IF ERROR 
017024 104000 EMT :ERROR # DEFINED BY PRIERR SUBROUTINE 
017026 004736 ) JSR PC ,a(SP)+ >GO BACK FOR MORE ERROR CHECKS 
017030 000137 017146 jMP 12$ :GO TO 12$ IF ERROR 

611 017034 032737 100000 001346 8%: BIT #ATA,RMDSI :1$ ATTENTION RESET?? 

612 017042 001411 BEQ 9$ YES 

613 017044 013737 001346 001142 MOV RMDSI.$BDDAT “BAD DATA FOR TYPEOQUT 

614 017052 042737 077777 001142 BIC w*CATA, SBDDAT 

615 017060 005037 001140 CLR $GDDAT :400D DATA FOR TYPEOUT 

616 017064 104246 EMT 246 

617 017066 9$: 

618 017066 004737 050400 JSR PC,CMPERRSTS — : CHECK ANY ERRORS NOT MASKED 
017072 115760 .WORD NDTMSK “MASK FOR RMER1 
017074 000010 .WORD DPE “MASK FOR RMER2 
017076 000405 BR 10$ -GO TO 10$ IF NO ERROR 
017100 000240 NOP “RETURN HERE IF ERROR 
017102 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
017106 004736 JSR PC a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
017106 000137 017146 MP 12$ -GO TO 12$ IF ERROR 


619 017112 10%: 


Cc 9 
CZRMMBO RMOS/3/2 FCINL TST 1 MACRO VO04.00 4=APR=81 11:43:28 PAGE 13-23 
21 GO/ATA TEST 


SEQ 0106 
620 017112 004737 057766 JSR PC,STCDRVSTS = ;GO CHECK FOR CHANGES IN DRIVE STATUS 
017116 000405 BR 11$ GO TO 11$ IF NO ERROR 
017120 000240 NOP _ FRETURN HERE IF ERROR 
017122 104000 EMT 7ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
017124 004736 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
017126 000137 017146 MP 12$ :GO TO 12$ IF ERROR 
621 017132 11%: 
622 017132 004737 044540 JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
017136 000403 BR 12$ :GO TO 12$ IF NO ERROR 
017140 000240 NOP ‘RETURN HERE IF ERROR 
017142 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
017144 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
623 017146 12$: 
625 ht tthe eee PEPE T CEST SASL LALELAELLALLAELE LETT 
=*TEST 22 WRITE ATA TEST 
ba leit tet tit dtd PPR PEPE EEAEALEAELAELAELLAALE SE 
017146 1$122: 
017146 000004 SCOPE :SCOPE CALL 
617150 000240 NOP -START OF TEST 
017152 012706 001100 MOV #STACK,SP : INITIALIZE STACK POINTER 
017156 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
017162 013701 001464 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
ae 017166 012737 000022 001226 MOV #22, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
627 017174 004737 041650 JSR PC. TSTPRP ;PREPARE DEVICE FOR TEST 
017200 054130 -WORD 054130 : TASK DESCRIPTOR AS FOLLOWS: 
’ :CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID : 
te ;VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SKI'’ OR 'PIP’’ IS SET 
i VERIFY RECAL IBRATION 
017202 000404 BR 1$ :GO TO 1$ IF NO ERROR 
017204 000240 NOP *RETURN HERE IF ERROR 
017206 104000 EM] :ERROR # DEFINED BY TSTPRP SUBROUTINE 
017210 000137 017512 JMP 9$ :GO TO 9$ IF ERROR 
628 017214 1$: 
629 017214 112737 000000 001543 MOVB = #RMCS1 “PUT INK :SETUP PUT INDEX TABLE 
017222 112737 000200 001544 MOVB #200,PUTINX+1 :SET TERMINATOR BYTE 
017230 012737 000015 001410 MOV WOFFSET!GO. RMCS10 ;SET RMCS1 OUTPUT BUFFER = OFFSET!GO 
C17236 004737 043160 JSR PC PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
017242 000404 BR 2$ :GO TO 2$ IF NO ERROR 
017244 000240 NOP :RETURN HERE IF ERROR 
017246 104000 EMT . :ERROR DEFINED BY PUT SUBROUTINE 
017250 000137 017512 JMP 9$ -GO TO 9$ IF ERROR 
630 017254 004737 042624 2$: JSR PC,GETSTS :SETUP TO READ ALL REGISTERS 
632 017260 004737 042710 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
017264 000404 BR 3$ -GO TO 3$ IF NO ERROR 
017266 000240 NOP “RETURN HERE IF ERROR 
017270 104000 EMT :ERROR # DEFINED BY GET SUBROUTINE 
017272 000137 017512 MP 9$ :GO TO 9$ IF ERROR 
633 017276 032737 100000 001346 3$: BIT #ATA,RMDS] :1$ ATTENTION SET?? 
634 017304 001012 BNE 4$ YES! 
635 017306 013737 001346 001142 MOV RMDS1,$BDDAT BAD bATA FOR TYPEQUT 
636 017314 042737 077777 +«+01142 BIC #*CATA, $BDDAT 


eet ee 


ee = < ee 


LL TS a ae | er ee 


| 0 9 
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Tee WRITE ATA TEST ) SEQ 010/ 
637 017322 012737 100000 001140 MOV #ATA,$GDDAT :GOOD DATA FOR TYPEOUT 
638 017330 104172 EMT 172 
639 017332 116102 000001 4$: MOVB 1(R1) ,R2 sR2_ = ATTENTION BIT 
640 0173356 042702 177400 BIC ° #*CATNMSK,R2 = CLEAR SIGN EXTENSION 
647 017342 000240 NOP 
642 017344 010237 001426 MOV R2,RMASO ;PUT_RMAS BIT IN OUTPUT BUF 
645 017350 112737 000016 001543 MOVB #RMAS , PUT INX Art Taeatuae INDEX IN TABLE 
644 017356 112737 000200 001544 MOVB : #200,PUTINX+1 WRITE TERMINATOR 
645 017364 004737 043160 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
017370 000404 BR 5$ :GO TO 5$ IF NO ERROR 
017372 000240 NOP ;RETURN HERE IF ERROR 
017374 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
017376 000137 017512 JMP 9$ :GO TO 9$ IF ERROR 
646 017402 5$: 
647 017402 004737 042710 JSR PC,GET GO READ REGISTER(S) WITH GET SUBROUTINE 
017406 000404 BR 6$ :GO TO 6$ IF NO ERROR 
017410 000240 NOP ;RETURN HERE IF ERROR 
017412 104000 EMT sERROR # DEFINED BY GET SUBROUT INE 
017414 000137 017512 JMP 9$ :GO TO 9$ IF ERROR 
648 617420 6$: 
649 017420 004737 043706 JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
017424 000405 BR 7$ :GO_ TO 7$ IF NO ERROR 
017426 000240 NOP sRETURN HERE IF ERROR 
017430 104000 EMT ;ERROR # DEFINED BY PRIERR SUBROUT INE 
017432 004736 JSR PC,a@(SP)+ >GO BACK FOR MORE ERROR CHECKS 
017434 000137 017512 JMP 9$ :GO TO 9$ IF ERROR 
650 017440 032737 100000 001346 7$: BIT ~  #ATA,RMDSI eI ATTENTION RESET?? 
651 017446 001411 BEQ 8$ sYes!s 
652 017450 013737 001346 001142 MOV RMDSI , $BDDAT ;BAD DATA FOR TYPEOUT 
653 017456 042737 077777 001142 BIC #*CATA, $BDDAT 
654 017464 005037 001140 CLR SGDDAT :GOOD DATA FOR TYPEQUT 
655 017470 104247 EMT 247 
656 017472 8$: 
657 017472 004737 050400 JSR PC, CMPERRSTS CHECK ANY ERRORS NOT MASKED 
017476 000000 -WORD QO MASK FOR RMER1 
017500 000000 -WORD 0 sMASK FOR RMER2 
017502 000403 BR 9$ :GO TO 9$ IF NO ERROR 
017504 000240 NOP sRETURN HERE IF ERROR 
017506 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
017510 004736 JSR PC,@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
oon 017512 9$: 
660 CLEARER TERR RRR RRR RRR EER REE RER EE EEE 
S*TEST 23 FRROR/ATA TEST 
LEAR ERE REE ERE RR TEE EERE EER RRR RRR RRR ER EERE ERE ERE REE EE 
017512 . 15123: 
917512 000004 SCOPE SCOPE CALL 
017514 000240 NOP START OF TEST 
017516 012706 001100 MOV ASTACK , SP : INITIALIZE STACK POINTER 
017522 013700 001276 MOV $BASE , RO ;RO = UNIBUS ADDRESS 
017526 013701 001464 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
Pe 017532 012737 000023 001226 MOV #23, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
662 017540 004737 041650 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
017544 054130 -WORD 054130 : TASK DESCRIPTOR AS FOLLOWS: 


;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 


liaise ee 


CZRMMBO RMOS/3/2 FCTNL 
ERROR/ATA TEST 


7) 
23 


676 
677 


678 
679 


682 


017546 


017620 


C17624 
017630 


0 2 
017776 
017776 

0002 


020024 


112737 
012757 
37 


104172 
112737 


112737 


012737 


TST 1 


020104 


043160 


020104 
042624 


042710 


020104 
100000 


001346 
077777 
100000 


000014 - 


043160 


020104 


043160 


020104 
042710 


020104 
100000 


100000 
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001543 
001544 
001410 


001346 
001142 


007142 
001140 


001543 
001544 
001424 


001346 
007140 


1$: 


2$: 


38: 


4$: 


5$: 


6$: 


7$: 


1$ 


10$ 


AMRMCS1,PUTINX 
#200, PUTINX+1 


10$ 
PC,GETSTS 
PC,GET \w 
3$ 


10$ 
#ATA,RMDSI 
4$ 

SBDDAT 


RMDSI, 
#°CATA, $BDDAT 
lad ,SGDDAT 


#RMER1 PUT INX 
#200, PUTINX+1 
AUNS ,RMERTO 
PC,PuT 

S$ 


10$ 


#RMCS1,PUT INX 
#200,PUTINX+1 


#NOP!GO,RMCS10 


PC ,PuT 
6$ 


10$ 
PC,GET 
7$ 


10$ 
HATA, RMDS! 


HATA, $GDDAT 


#OFF SET!GO,RMCS10 
PUT 


SEQ 0108 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 

:RECALIBRATE IF ‘'SKI'’ OR ‘PIP’' IS SET 
; VERIFY RECALIBRATION 
:GO TO 1$ IF NO ERROR 

:RETURN HERE IF ERROR 

cone 4 2 oe ml TSTPRP SUBROUT INE 


sSETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 
SET RMCS1 OUTPUT BUFFER = 
+ G0 WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 2$ IF NO ERROR 
“RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 10$ IF ERROR 
;SETUP TO READ ALL REGISTERS 


;GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 3$ IF NO ERROR 

;RETURN HERE IF ERROR 
:ERROR # DEFINED BY GET SUBROUTINE 

:GO TO 10$ IF ERROR 

vest SET?? 


YE 
:BAD DATA FOR TYPEOUT 
:GOOD DATA FOR TYPEOUT 


OF FSET! GO 


>SETUP PUT INDEX TABLE 

:SET TERMINATOR BYTE 

;SET RMER1 OUTPUT BUFFER = UNS 

:GO WRITE RMER1 VIA PUT SUBROUTINE 
:GO TO 5$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 10$ IF ERROR 


;SETUP PUT INDEX TABLE 

:SET TERMINATOR BYTE 

sSET RMCS1 OUTPUT BUFFER = NOP!GO 
:GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 6$ IF NO ER so 

:RETURN HERE IF ERROR 

:ERROR DEFINED BY PUT SUBROUTINE 
:GO TO 10$ IF ERROR 


;GO oaAe REGISTER(S) WITH GET SUBROUTINE 
;GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR . 

sERROR # DEFINED BY GET SUBROUTINE 

;GO TO 10$ IF ERROR 

‘tesnt’ SFuLL SET?? 


: GOOD DATA FOR TYPEOUT 


LS i EEE ste 


- LOLOL LLL LLG EL TE ne ay ee 
—_ LS SS ee i tt eet ast: onsen LL Se se he emanate 


CZRMMBO RMO5S/3/2 FCTNL 
e5 FRROR/ATA TEST 


688 
689 020070 


693 
694 


029102 


020124 
020132 
020136 


020149 


02023C 


013737 
042737 
104250 


012737 


004737 
054130 


000137 
113702 


012746 


TST 1 


001346 
C77777 


057766 


020104 
044540 


007100 
001276 
001464 
000024 


041650 


020574 


001272 
177400 


177400 


177437 
000300 
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001142 
001142 


001226 


000002 


8$: 


9$: 


10$: 


RMDS1 ,$BDDAT 


#“CATA,$BDDAT 
250 | 


PC,STCDRVSTS 
9$ 


PC,a(SP)+ 


;BAD DATA FOR TYPEOUT 


+ GO caren FOR CHANGES IN DRIVE STATUS 
;GO TO 9$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY STCDRVSTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

"GO TO 10$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 10$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 


pt heehee ee eRe RP RRR REESE RSE SOSSASCLO“SCSCLCCCLCL.e ESS 


S*TEST 24 


+8124: 


1$: 


PROGRAM INTERRUPT TEST 


FREAK 


ASTACK ,SP 
SBASE ,R 
TSTQUE ,R1 
424, $TESTN 


PC, TSTPRP 
054130 


1$ 


16$ 


$VECT1.R2 
#°(<377>,R2 


#PR6, 2(R2) 
$VECT141,R3 
#*°C<377>._RS 
R3 

R3 

2$ 


R3 
#*CPR7,R3 
APRE,-(SP) 


:SCOPE CALL 


sSTART OF TEST 

s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 
;;SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

:CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF *'SKI"’ OR ‘PIP*' IS SET 
VERIFY RECALIBRATION 

:GO TO 1$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 16$ IF ERROR 


;R2 = INTERRUPT ADDRESS 
>CLEAR SIGN EXTENSION 
SAVE HANDLER ADDRESS 
bes HANDLER PRIORITY 
WRITE HANDLER ADDRESS AND 
“PRIORITY FOR THIS TEST 
=R3 = INTERRUPT LEVEL 
:CLEAR SIGN EXTENSION 


:DECREMENT INTERRUPT LEVEL 


;;PUSH 4PR6 ON STACK 


SEQ 01 


OF 


EEN Seen LO tet tn - 


736 
737 
7 


) RMOS/3/2 FCTNL TST 1 


PROGRAM INTERRUPT TEST 


| 020234 


020262 
020270 
0 


020424 
020430 
020430 
020432 


012746 


142737 
004737 
000404 
000137 
112757 


100376 


000002 
004737 


0001 37 


104251 
000423 


022626 
012716 
000002 


104000 


020372 


020364 
177777 
000016 
000200 


043160 


020574 


000000 
000200 
000115 
043160 


020574 
045522 


042624 
000205 


042710 


- 020574 


043706 


020574 


020444 


042710 
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001426 
01543 
001543 


So 


001545 
001544 
001410 


3$: 


4$: 


5$: 


; TIMEOUT BEFORE 


6$: 


7$: 


B$: 


o$: 


10$: 


RTI 


#6%,-(SP) 
R3,-(SP) 
#5$,-(SP) | 
4-1 ,RMASO 
ARMAS ,PUT INX 
#200,PUTINX 


PC PUT 
3$ 


16$ — 


ARMCS1,PUTINX 
#200,PUTINX+1 SE 
MOFFSET!GO'IE,RMCS10 


PC,PUT 
4$ 


16% 


PC, TIMOUT 
PC,GETSTS . 
#205,R5 


RS 
5$ 


INTERRUPT 


PC GET 
($ 


16% 


PC,PRIERR 
8$ 


PC ,a@(SP)+ 
16$ 


25] 
12$ 


(SP) +, (SP)+ 
#10$, (SP) 


PC GET 
11$ 


33PUSH #6$ ON STACK 
3ZPUSH R3 ON STACK 
3Z3PUSH #5$ ON 
iWRITE ONES IN RMAS TO 
;CLEAR ALL ATTENTIONS 


STACK 


+ WRITE REGISTER(S) WITH PUT SUBROUTINE 
O TO 3$ IF NO ERROR 

“RETURN HERE IF ERROR 

sERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 16$ IF ERROR 


:SETUP PUT INDEX TABLE 


T TERMINATOR BYTE 


SET RMCS1 OUTPUT BUFFER = OFFSET!GO!IE 


:GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 4$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 16$ IF ERROR 


:WAIT FOR COMPLETION 
:SETUP TO READ ALL REGISTERS 
:R3 = GROSS TIMEOUT 

=DROP CP PRIORITY 

: TIMEOUT THE INTERRUPT 


RAISE CP PRIORITY 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 7$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


:G0 TO 16$ IF ERROR 


;GO CHECK FOR PRIMARY ERRORS 
:GO TO 8$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PRIERR SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 
:GO TO 16% IF ERROR ' 


sADJUST STACK 
; CHANGE RETURN ADDRESS 
SRAISE CP PRIORITY 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 11$ IF NO ERR ‘y 
:RETURN HERE IF ERRO 


[ERROR # DEFINED BY OGeT SUBROUT INE 


LT A A | a: 


H 9 
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020456 000137 020574 JMP 16$ :GO TO i6$ JF ERROR 
744 020462 11$: 
745 020462 ,004737 043706 JSR PC ,PRIERR — $G0 CHECK FOR PRIMARY ERRORS 
020466 000405 BR 12$ :GO TO 12$ IF NO = 
020470 000240 NOF “RETURN HERE IF ERROR 
020472 104000 EMT “ERROR # DEFINED BY PRIERR SUBROUTINE 
020474 004736 JSR PC ,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
020476 000137 020574 JMP 16$ :GO TO 16$ IF ERROR 
746 020502 128: 
747 020502 004737 050400 JSR PC, CMPERRSTS 7 CHECK ANY ERRORS NOT MASKED 
‘ 020506 115760 . WORD ND TMSK “MASK FOR RMER1 
020510 000010 .- WORD DPE iMASK FOR RMER2 
020512 000405 BR 13$ :GO TO 13% IF NO ERROR 
020514 000240 NOP “RETURN HERE IF ERROR 
020516 104000 ; EMT ;ERROR #4 DEFINED BY CMPERRSTS SUBROUTINE 
020520 004736 JSR PC ,a@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
020522 000137 020574 JMP 16$ :GO TO 16$ IF ERROR 
748 020526 . 13$: 
749 020526 004737 057766 JSR PC,STCDRVSTS 3;GO CHECK FOR CHANGES IN DRIVE. STATUS 
C20532 000405 BR 14$ :GO TO 14$ IF NO ERROR 
920534 000240 NOP ;RETURN HERE IF ERROR 
020536 104000 EMT > ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
020540 004736 JSR PC ,a@(SP)+ :;GO BACK FOR MORE ERROR CHECKS 
020542 000137 020574 JMP 16$ :GOQ TO 16% IF ERROR 
750 020546 14$: 
751 020546 004737 044540 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
020552 000405 BR 15$ :GO TO 15$ IF NO ERROR 
020554 000240 NOP ;RETURN HERE IF ERROR 
020556 104000 EMT * ERROR # DEFINED BY SECERR SUBROUTINE 
020560 004736 JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
020562 000137 020574 JMP 16$ :GO TO 16% IF ERROR 
752 020566 15$: : 
753 020566 010412 MOV R4,(R2) 
754 020570 010562 000002 MOV R5,2(R2) 
fee 020574 16$: 
757 REAR REE EERE REE ERERKRRRA EKER EKER EREE ERE ERE 
=*TEST 25 INHIBIT INTERRUPT TEST 
Re eR RE ERR KERR KER ERR EKER ERE RE REE 
020574 $125: 
020574 000004 SCOPE :SCOPE CALL 
C20576 000240 NOP 7START OF TEST 
020600 012706 001100 MOV HSTACK, SP INITIALIZE STACK POINTER 
020604 013700 001276 MOV $BASE ,RO RO = UNIBUS ADDRESS 
020610 013701 001464 MOV TSTQUE ,R1 3 (R17) DEVICE BEING TESTED 
_ 020614 012737 000025 001226 MOV H25,$TESIN >: SET TEST NUMBER IN APT MAIL BOX 
759 020622 004737 041650 JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
020626 054130 . WORD 054130 3; TASK DESCRIPTOR AS FOLLOWS: 


;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘“’SKI"’ OR 'PIP*' IS SET 
: VERIFY RECALIBRATION 

020630 000404 BR 1$ ;GO TO 1$ IF NO ERROR 

020632 000240 NOP ;RETURN HERE IF ERROR 


— 


- 
rl en Ne 


797 021100 
798 


799 021102 
800 021104 


CZRMMBO RMOS/3/2 FCINL TST 1 
INHIBIT 


INTERRUPT TEST 


104000 
000137 


113702 


004737 
112737 


000137 


004737 
012703 
000002 


005303 
100376 


112737 


012712 
005303 
100376 
000002 


022626 
022626 


021142 


001272 
177400 


000002 


021134 


177437 
021070 


021016 
042624 
000000 
043160 


021142 


043522 
000205 


000000 


043160 


021142 
000205 


021104 
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000002 


001543 


001544 


001410 


001543 
001544 
001410 


1$: 


2$: 


3$: 


4$: 


5¢: 


6$: 
7$: 


8$: 
S$: 


13$ 


$VECT1,R2 
#°C<377>_R2 


$VECT1+1,R3 


PC,GETSTS 


#RMCS1,PUT INX 
#200, PUT INX+1 


#OFFSET!GO!IE, RMCS10 


PC,PUT 
3$ 


13$ 


PC,TIMOUT 
#205,R3 


R3 
4$ 


ARMCS1 ,PUT INX 
#200,PUTINX+1 
ANOP ,RMCS10 
PC,PUT 

5$ 


13$ 
#205,R3 


#9$,(R2) 
R3 
7$ 


(SP)+,(SP)+ 
(SP) +, (SP)+ 


sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 13$ IF ERROR 


:R2 = INTERRUPT ADDRESS 
; CLEAR’ SIGN EXTENSION 
sSAVE HANDLER ADDRESS 
SAVE HANDLER PRIORITY 
;WRITE HANDLER ADDRESS AND 
sPRIORITY FOR THIS TEST 
3;R3 = INTERRUPT LEVEL 
:CLEAR SIGN EXTENSION 
:3PUSH #APR6 ON STACK 
:sPUSH #12$ ON STACK 
;sPUSH R3 ON STACK 


3zPUSH #6$ ON STACK 


TACK 
;SETUP TO READ ALL REGISTERS 


: SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = 
;GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 3$ IF NO ERROR 


OFFSET!GO!IE 


:RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBROUTINE 
;GO TO 135% IF. ERROR 


sWAIT FOR GO = 0 
;R35 = GROSS TIMER 


; DELAY 


>SETUP PUT INDEX TABLE 

;SET TERMINATOR BYTE 

:SET RMCS1 OUTPUT BUFFER = NOP 

:GO WRITE RMCS1 VIA PUT SUBROUTINE 
;GO TO 5$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 15$ IF ERROR 


;NO ERROR 


sADJUST STACK 
ZADJUST STACK 


J 9 
MACRO VOS.00 4-APR-817 11:43:28 PAGE 13-30 


Yv 


. 


CZRMMBO RMOS/3/2 FCINL TST 1 
725 INHIBIT INTERRUPT TEST 
801 021106 012716 021114 MOV #10$, (SP) 
802 021112 000002 RTI 
803 021114 10$: 
804 021114 004737 042710 JSR PC GET 7GO 2 REGISTER(S) WITH GET SUBROUTINE 
021120 000404 BR 11$ :GO TO 11$ IF NO ERROR 
021122 000240 NOP =RETURN HERE IF ERROR 
9021124 104 EMT sERROR # DEFINED BY GET SUBROUTINE 
021126 9000137 021142 JMP 13$ :GO TO 13$ IF ERROR 
BOS 021132 11$: 
06 021132 104252 EMT 252 
807 021134 010412 12$: MOV R4,(R2) 
808 021136 010562 000002 R5,2(R2) 
res 021142 =. : 13$: 
811 i hit t tte ee eee eee PPP PCCP PPS CSS S SSCS SSC SCS SSCS CCCCCCCC.. CoE 
Z*TEST 26 RETURN TO CENTERLINE TEST 
ideielett ttt ttt dete tee e eee C TES CSC CCS CSCS ASSL CSCC LCLCTCCLCLC.. TT 
021142 18726: 
C21142 000004 SCOPE :SCOPE CALL 
021144 000240 NOP :START OF TEST 
021146 012706 001100 MOV ASTACK,SP INITIALIZE STACK POINTER 
021152 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
021156 013701 001464 , MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
812 021162 012737 000026 001226 Ee MOV #26, $TESTN :zSET TEST NUMBER IN APT MAIL BOX 
815 021170 004737 041650 JSR PC,TSTPRP :PREPARE DEVICE FOR TEST 
021174 054130 . WORD 054130 >; TASK DESCRIPTOR AS FOLLOWS: 
ol Sa :CLEAR CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; : VERIFY PACK ACKNOWVEDGE ~ 
‘ sRECALIBRATE IF ‘'SKI'* OR 'PIP’' IS SET 
an : VERIFY RECALIBRATION 
021176 000404 BR 1$ : :GO TO 1$ IF NO ERROR 
021200 000240 NOP :RETURN HERE IF ERROR 
021202 104000 EMT ;ERROR # DEFINED BY TSTPRP SUBROUTINE 
a14 B51Sic 000137 021464 1. JMP 9$ =GO TO 9$ IF ERROR 
815 021210 112737 000000 001543 MOVB A#RMCS1, PUT INX ;SETUP PUT INDEX TABLE 
021216 112737 000200 001544 MOVB #200,PUTINX+1 ;SET TERMINATOR BYTE 
021224 012737 000017 001410 MOV ARTC!GO,RMCS10 ;SET RMCS1 OUTPUT BUFFER = RTC'GO 
021232 004737 043160° JSR PC,PUT :GO WRITE RMCS1 VIA PUT SUBROUTINE 
021236 000404 BR 2$ :GO TO 2$ IF NO ERROR 
021240 000240 NOP sRETURN HERE IF ERROR 
021242 104000 \ EMT ZERROR DEFINED BY PUT SUBROUTINE 
021244 000137 021464 JMP 9$ 3:50 TO 9$ IF ERROR 
816 021250 004737 . 042624 et: JSR PC,GETSTS :SETUP FOR STATUS FETCH 
Bie 021254 004737 043522 JSR PC, TIMOUT zWAIT FOR RECAL TO COMPLE TF 
819 021260 004737 042710 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
021264 000404 BR 3$ 360 TO 3$ IF NO ER ata 
021266 000240 NOP >RETURN: HERE IF ERROR 
021270 104000 EMT zERROR #4 DEFINED BY GET SUBROUTINE 
021272 000137 021464 ! JMP 9$ :GO TO 9$ IF ERROR 
820 021276 3$: 
821 021276 004737 043706 JSR PC,PRIERR 3;GO CHECK FOR PRIMARY ERRORS 


C7RMMBO 


126 


843 
844 


RMOS/3/2 FCTNL TST 1 


RETURN TO CENTERLINE TEST 


02 
021504 


021512 
021516 


104171 
004737 


000137 
004737 


104000 
004736 


000004 
000240 


012737 


004737 
054130 


021464 
000001 


001140 
001346 
177776 
100000 
001346 


077777 
100000 


050400 


0721464 
057766 


021464 
044540 


001100 


000037 
041650 
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001346 
001142 
001142 
001546 
001142 


001142 
001140 


001226 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


BR 


4% 


PC,a(SP)+ 
9$ 
#0M,RMDSI 
5$ 


$GDDAT 
RMDS1,$BDDAT 
een! 


° 
#ATA,RMDSI 
6$ 


RMDSI ,$BDDAT 
#“CATA, SBDDAT 
oe 


PC,CMPERRSTS 
NDTMSK 

DPE 

7$ 


PC,a(SP)+ 
9$ 


PC,STCDRVSTS 
BS 


PC, a(SP)+ 
9$ 


PC,SECERR 
9$ 


PC,a(SP)+ 


SEG v 


:GO_ TO 4$ IF NO ERROR 


sRETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 

:GO BACK FOR MORE ERROR CHECKS "1 
:GO TO 9$ IF ERROR 

VEST MODE OFF ?? 


:GOOD DATA FOR TYPEOUT 
;BAD DATA FOR TYPEOUT 
te Te ATTENTION SET ?? 
;BAD DATA FOR TYPEOUT 


>GOOD DATA FOR TYPEOUT 


sCHECK ANY ERRORS NOT MASKED 

:MASK FOR RMER1 

sMASK FOR RMER2 

:GO TO 7$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 


:GO TO 9$ IF ERROR 


>GO CHECK FOR CHANGES IN DRIVE STATUS 
:GO TO 8$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY STCDRVSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 9$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 9$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 


o RERAAAAARAEE RAE RERRRERAERA EAA EREAEER EATER RE REE EH 


“TEST 27 


+S127: 


READ IN PRESET TEST 


SERRE ERK KEKE ERR EEK REE KEKE EKER EE 


ASTACK,SP 
$BASE ,R 
TSTQUE ,R1 
#27, STESTN 


PC, TSTPRP 
054130 


; SCOPE CALL 

: START OF TEST 

s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

sCLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 


ee ee 
eee 


, tae RMO5/3/2 FCTNL 


READ IN PRESET 


021520 


0 
863 021676 
864 021704 
865 021712 
866 021714 
867 021720 


879 021766 
021772 
021774 


104162 


004737 
115760 
90010 


TST 1 
TEST 


022046 
001543 


043160 


022046 
042624 
043522 


042710 


022046 
043706 


022046 
001366 
161577 
001140 
0017342 


001342 
001140 


001370 
001370 
007740 


050400 


—_— - 
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001142 


001142 


1$: 


2$: 


5$: 


6$: 


7$: 


1$ 


10$ 


HMPUTINX,R2 
HRMDA, (R2)+ 


#200, (R2)+ 
#-1,RMDCO 


sVERIFY PACK ACKNOWLEDGE 

ZRECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
i: VERIFY RECALIBRATION 

:GO TO 1$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 10$ IF ERROR 


sR2 POINTS TO INDEX TARLE 


AFMTI6!ECI!HCI!OFD,RMOFO 


ARIP!GO,RMCS10 
PC,PUT 


10$ 
PC,GETSTS 
PC,TIMOUT 


PC,GET 
3$ 


10$ 
PC,PRIERR 
4$ 


PC,a(SP)+ 
10$ 
RMOF I , SBDDAT 


21S RMOF 
MCSF TOIECL ICT OED? . SBDDAT 


$GDDAT 

160 

RMDAI 

6$ 
RMDAI , SBDDAT 
* itl 

RMDCI 

7$ 
RMDC I, $BDDAT 
$GDDAT 


“PC, CMPERRSTS 
ND TMSK 


DPE 


su WRITE py ye hh AE WITH PUT SUBROUTINE 


:GO TO 2$ IF NO ERR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 10$ IF ERROR 

sSETUP FOR STATUS FETCH 

;WAIT FOR RIP TO COMPLETE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 3$ IF NO ERROR 
:RETURN HERE IF ER 


ROR 
;ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 10$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 

:GO TO 4$ IF NO ERROR 

7RETURN HERE IF ERROR | 
ey EA # DEFINED BY PRIERR SUBROUTINE 


O BACK FOR MORE ERROR CHECKS 
:GO TO 10$ IF ERROR 
RESET?? 
:GOOD DATA FOR TYPEOQUT 
:IS RMDA RESET?? 
YES! 


“BAD BATA FOR TYPEOQUT 
:GOOD DATA FOR TYPEQUT 


‘teshee RESET ?? 
:BAD DATA FOR TYPEOUT 
:GOOD DATA FOR TYPEQUT 


; CHECK ANY A NOT MASKED 
:MASK FOR RMER1 
:MASK FOR RMER2 


SEQ 0115 


| Slee RMO5/3/2 FCTNL 
READ IN PRESET 


887 
888 


889 
890 


891 
892 
893 


021776 
O2 


022074 
022100 


022102 


022150 
022154 


022160 
022164 
022166 


004737 
000403 
000240 
104000 
004736 


000604 


012737 


004737 
054130 


000404 


112737 


‘Fe 1 
TEST 


022046 
057766 


022046 
044540 


001100 
001276 
001464 
000030 


041650 


~ 022364 


000000 
000200 
000015 
043160 


022564 
042624 


042710 
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001226 


001543 
001544 
001410 


8$: 


9$: 


10$: 


8$ :GO_TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 10$ IF ERROR 


;GO CHECK FOR CHANGES IN DRIVE STATUS 
:GO_ TO 9$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY STCDRVSTS SUBROUTINE 
PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

10$ :GO TO 10$ IF ERROR 


;GO CHECK FOR SECONDARY ERRORS 

:GO TO 10$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY SECERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 


PC ,a(SP)+ 
10$ 


PC,STCDRVSTS 
9$ 


PC,SECERR 
10$ 


PC ,a(SP)+ 


g SAAS AERA AE AAAAARRERAAAEAERERARAREERAREHEREEEEREEEAEEE EEE E ES 


VRTEST 30 


iit ee tte eee EPP REPRE ERE S CSS S ESS CSASSCSSSCSCLCLCC LC. oS. 


+8130: 


2S: 


-’ RMDC CLEAR OFFSET TEST 


sSCOPE CALL 


sSTART OF TEST 
ASTACK,SP s INITIALIZE STACK POINTER 
$BASE ,RO :RO = UNIBUS ADDRESS 
TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
#30,$TESTN saSeT TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP ;PREPARE DEVICE FOR TEST 
054130 : TASK DESCRIPTOR AS FOLLOWS: 


:CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI"' OR 'PIP"' IS SET 
: VERIFY RECALIBRATION 
1$ :GO TO 1$ IF NU ERROR 
sRETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
8$ :GO TO 8$ IF ERROR 


ARMCS1,PUTINX  ;SETUP PUT INDEX TABLE 
#200,PUTINX+1  ;SET TERMINATOR BYTE 

#OFFSET'GO, siete - SET RMCS1 OUTPUT BUFFER = 
PC,PUT WRITE RMCS1 VIA PUT SUBROUTINE 
2$ ‘60 TO 2$ IF NO ER a 

“RETURN HERE IF ERRO 

; ERROR DEF INED ER PUT SUBROUT I NE 


OF FSET! GO 


8$ GO TO 8$ IF E 
PC,GETSTS SETUP FOR STATUS 

PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
3$ :GO TO 3$ IF NO ERROR 


;RETURN HERE IF ERROR 


SEQ 0116 
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RMDC CLEAR OFFSET TEST SEQ 0117 


' 
| 


022170 


OO TO a oe ay GET SUBROUTINE 


22172 000137 622364 JMP 8$ GO TO 8$ IF 
| 894 022176 3$: 
| 895 022176 004737 043706 JSR PC PRIERR 3GO CHECK FOR PRIMARY ERRORS 
022202 000405 Se 4$ :GO TO 4$ IF NO ER = 
22204 000240 NOP :RETURN HERE IF ERR 
| 22206 104 / EMT zERROR # DEFINED BY OPRIERR SUBROUT INE 
| 022210 004736 JSR PC, a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
| 022212 137 022364 JMP O TO 8$ IF ERROR 
022216 032737 000001 001346 4$: BIT #04,RMDS! OFFSET ON?? 
897 022224 001013 BNE S$ 
898 022226 013737 001346 001142 MOV RMDSI,$BDDAT ‘BAD DATA FOR TYPEOUT 
022234 042737 177776 001142 BIC #*COM,$BDDAT 
022242 012737 000001 001140 MOV #0M,$GDDAT ;GOOD DATA FOR TYPEOUT 
901 022250 104156 EMT 156 
902 022252 000444 BR 8$ ;SKIP REST OF TEST 
903 022254 S$: 
022254 112737 000034 001543 MOVB #RMDC ,PUT INX ;SETUP PUT INDEX TABLE 
022262 112737 000200 001544 MOVB #200,PUTINX+1  ;SET TERMINATOR BYTE 
022270 012737 000000 001444 MOV #0,RMDCO ;SET RMDC OUTPUT BUFFER'= 0 
022276 004737 043160 JSR PC,PUT :GO WRITE RMDC VIA PUT SUBROUTINE 
022302 000404 BR 6$ :GO TO 6$ IF NO ERROR 
022304 000240 NOP sRETURN HERE IF ERROR 
022306 104000 EMT ;ERROR DEFINED BY PUT SUBROUT INE 
905 peseiy 000137 022364 ws JMP 8$ :GO TO 8$ IF ERROR 
906 022314 004737 042710 on Te PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
022320 000404 BR 7$ :GO TO 7$ IF NO ERROR 
022322 000240 NOP ;RETURN HERE IF ERROR 
022324 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
022526 000137 022364 JMP 8$ -GO TO 8$ IF ERROR 
907 022352 032737 000001 001346 7$: BIT #OM,RMDS1 3DID OFFSET MODE RESET?? 
908 022340 001411 BEQ 8$ oe 
909 022342 013737 001346 001142 MOV RMDSI,$BDDAT~  ;:BAD DATA FOR TYPEOUT 
910 022350 042737 177776 001142 _, BIC #*COM, S$BDDAT 
911 022356 005037 001140 ~ CLR $SGDDAT :GOOD DATA FOR TYPEQUT 
at 022362 104253 EMT 253 
a 022364 8$: 
91 5 FREER REE KK RRA K KKK EEK KEKEKKKKK KE 
STEST 31 ILLEGAL FUNCTION TEST 
° SEAR RARE EKER REE EE EKER KEKE KKK KKK KEKE KKKEK KN 
022364 TST31: 
022364 000004 SCOPE :SCOPE CALL 
022366 000240 NOP :START OF TEST 
022370 012706 001100 MOV _ASTACK, SP : INITIALIZE STACK POINTER 
022374 13700 001276 MOV . $BASE,RO RO = UNIBUS ADDRESS 
22400 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
oe 022404 012737 000031 001226 MOV #31,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
917 022412 004737 041650 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
022416 040000 -WORD 040000 : TASK DESCRIPTOR AS FOLLOWS: 
=CLEAR CONTROLLER & SELECT DEVICE 
0224 600404 me 1$ -GO TC 1$ IF NO ERROR 
Asse 2 000240 NOP sRETURN HERE IF/€RROR 
022424 104000 EMT | -ERROR # DEFINED BY TSTPRP SUBROUTINE 
022426 000737 0623150 JMP 13% :GO TO 13% IF ERROR 


eS et 


LL ee Ee © ee ee ee 
a estes es sna esetttnessessaspstenntiesesieentnisiesninttenigenienemiin ce 


‘or RMO5/ 3/2 FC TNL TST 7 
ILLEGAL FUNCTION TEST 


928 022520 
929 


949 022720 


004737 
012702 
004737 
000404 
000240 
104000 
000137 


000404 
000240 
104000 
000137 
012737 


042624 
JOO0CC 


052264 


025750 


023150 


000000 
000200 
000023 
043160 


023150 
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001543 


001416 


001414 
001412 


001442 


$: 
JSR PC GETSTS sSETUP FOR STATUS 
- MOV @NOP RZ 
JSR PCL CNTCLR 760 issue CONTROLLER CLEAR 
ae 3% =GO T O 3$ JF NO ERROR 
NOP see TURNS HERE IF ERROR 
EMT TERR OR NUMBER DEFINED BY SUBROUTINE 
Mp 13$ 3;G0 TO 13$ JF ERROR 
38: 
ae to oa MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
Yiij 
“OVS #RMPMAR PUT INK ;SETUP PUT INDEX TABLE 
“OVA 200, PUTINK}1 ;SET TERMINATOR BYTE 
MOV #DMD ,.RMMR TO 7SET RMMAR1 OUTPUT BUFFER = DMD 
JSR PC Purl :GO WRITE RMMRi VIA PUT SUBROUTINE 
SR 4$ :GO TO 4$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT ZERROR DEFINED BY PUT SUBROUTINE 
a JjMP 13§ :GO TO 13$ IF ERROR 
“MOVE #RMMRT PUT INK ;SETUP PUT INDEX TABLE 
MOVB #200, PUT INK+1 7SET TERMINATOR BYTE 
MOV #DMD 'MUR' MOC. RMMR10 ;SET RMMART OUTPUT BUFFER = DMD'MUR'MOC 
SSR PC .PuT :GO WRITE RMMR1 VIA PUT SUBROUTINE 
BR 5$ :GO0 TO 5$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT ZERROR DEFINED BY PUT SUBROUTINE 
a JMp 13$ :GO TO 13$ IF ERROR 
sSE? VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 
MOVA #RMCS1 PUT INK zSETUP PUT INDEX TABLE 
MOVB #200, PUTINK+1 SET TERMINATOR BYTE 
MOY MPAKACK'GO, RMCS10 SET RMCS1 OUTPUT BUFFER = PAKACK'GO 
JSR PL PUT iG we TE RMCS1 VIA PUT SUBROUTINE 
BF 6$ 360 TO 6$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT “ERROR DEFINED BY PUT SUBROUTINE 
os JMP 13$ :GO TO 13$ IF ERROR 
MOV #G6G,RMCS10 
B15 R2,RMCS10 WRITE FUNCTION CODE IN BUFFER 
MOV FONE,RMBAO ;DUMMY BUS ADDRESS 
MOV #-1, CO ;DUMMY WORD COUNT 
CLR RMDAO ;CLEAR DISK ADDRESS 
CLR RMDCO ++ ey) oo ADDRESS 
MOV #FMT16,RMOFO :16 BIT FORMAT 
MOV #PUTINK,R3 “WRITE REGISTER INDEX TARLE 
MOVB #RMBA , (R35) 
MOVB MRMWC, (R35) + 
MOVA MRMOF ,(R3)+ 
MOVB MRMDA, (R3)+ 
MOVB MRMDC, (R35) + 
MOY MRMCS1 (R33) + 
MOVB #200, (R35) 


C 10 
13 
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73) ILLEGAL FUNCTION TEST SEQ 0119 
350 022726 004737 043160 JSR PC PUT :G0 WRITE REGISTERS) WITH PUT SUBROUTINE 
022730 000404 BR 7$ :GO TO 7$ IF NO ERROR 
022732 000240 NOP RETURN HERE IF ERROR 
022734 104000 EMT ZERROR # DEFINED BY PUT SUBROUTINE 
022736 000137 02315¢ jMP 1%$ :GO TO 13$ IF ERROR 
931 022742 004737 043522 7$: J5R PC, TIMOUT :WAIT FOR GO TO RESET 
953 022746 0064737 042710 JSR PC uFT :GO READ REGISTER(S) WITH GET SUBROUTINE 
022752 000404 | BR a$ GO TO 8$ IF NO ERROR 
022754 000240 NOP “RETURN HERE IF ERROR 
022756 104000 EMT ;ERROR # DEFINED GY GET SUBROUTINE 
022760 000137 023150 JMP 13$ :GO TO 13$ IF ERROR 
954 022764 aS: 
955 022764 004737 043706 JSR PC ,PRIERR :GO CHECK FOR PRIMARY ERRORS 
022770 000605 BR 9$ :GO TO 9$ IF NO ERROR 
022772 000240 NOP : “RETURN HERE IF ERROR 
022774 104000 EMT 7ERROR # DEFINED BY PRIERR SUBROUTINE 
022776 004736 15R PC a(SP)« 60 BACK FOR MORE ERROR CHECKS 
023000 000127 023150 MP 13§ :GO TO 13$ IF ERR 
$56 623004 016237 067136 001140 98: MOV FNCDTB(R2) ,SGDDAT GET ENTRY. FROM FUNCTION CODE TABLE 
957 023012 042737 177776 001140 RIC #*CILF SGDDAT 
958 023020 013737 001350 001142 MOV RMER1I.$BDDAT  -:BAD DATA FOR TYPEQUT 
959 023026 042737 177776 001142 BIC #°CILF .$BDDAT 
34 023737 001140 001142 CMP Ya “SBDDAT sIS ILE STATUS CORRECT? 
961 023042 007402 BEQ 10$ *YES!! 
962 023044 104254 _ EMT 254 
963 023046 000440 BR 13$ 
964 023050 016237 067136 001140 108: MOV FNCDTB(R2) ,$GDDAT 
965 023056 032737 040090 001346 BIT #ERR /RMDS I :WAS AN ERROR DETECTED?? 
966 023064 001403 BEQ al Se =NO! | 
967 023066 052737 100000 001140 BIS #ATA,SGDDAT :YES = ATA SHOULD BE ON 
968 023074 042737 077777 001140 118: gic #°CATA,$GDDAT 
969 023102 013737 001346 001142 MOV RMDS1, $BDDAT :GET DRIVE’S ATTENTION 
970 023110 042737 077777 001142 BIC #*CATA, SBDDAT 
971 023116 023737 001140 007142 CMP SGDDAT,SBDDAT ;:1S ATA STATUS OK?? 
972 023124 001402 BEO 12$ SYES!! 
973 023126 104255 EMT 255 
974 023130 000407 BR 13$ 
975 023132 062702 000002 12$: ADD #2,R2 :GO TO NEXT FUNCTION CODE 
976 023136 022702 000076 CMP WILE 76,R2 : DONE ? 
977 023142 103402 BLO 13§ sYES i} 
978 023144 000137 022442 JMP 2$ -TEST NEXT FUNCTION 
979 023150 13$: 
980 
981 SPRATT ARREARS EEE HERRERA TAA AEREEEHEREERERAHTERE KERR EE 
-*TEST 32 INVALID COMMAND TEST 
CT TATRA AAR ARH ERAT HAE AEERRERERAEARRAERKREHEREREERERE TERE RR ERE 
023150 7$732: 
023150 000004 SCOPE :SCOPE CALL 
023152 000240 NOP :START OF TEST 
023154 012706 001100 MOV #STACK, SP - INITIALIZE STACK POINTER 
023160 013700 001276 MOV $RASE RO “RO = UNIBUS ADDRESS 
023164 013701 001464 MOV TSTOQUE ,R1 :(R1) = DEVICE BEING TESTED 
ain 023170 012737 000032 001226 MOV #32. $TESIN “:SET TEST NUMBER IN APT MAIL BOX 
983 923176 006737 041650 JSR PC. TSTPRP :PREPARE DEVICE FOR TEST 


023202 940000 .WORD 040000 ; TASK DESCRIPTOR AS FOLLOWS: 


D 10 
aaa RMO5/3/2 FCTNL po 1 MACRO VOS.00 4=APROB? 11:67:78 PAG ie 15-37 


INVALID COMMAND TEST SEQ 012% 
i CLEAR CONTROLLER g psEeect DEVICE 
023204 000404 BR 1§ :GO TO 1$ IF NO ERR 
023206 000240 NOP RETURN HERE IF ER ROR 
023210 106000 EM? ERROR # DEFINED Bt TSTPRP SUBROUTINE 
023212 000137 023674 JMP 13$ :G0 10 13$ IF ERR 
984 023216 7 1$: | 
985 023216 004737 042624 JSR PC ,GETSTS ; SETUP FOR STATUS 
986 023222 012702 000000 ‘MOV #NOP ,R2 
987 023226 28: 
988 023226 004737 052264 JSR PC. CNTCLR 360 1SSUE CONTROLLER CLEAR 
023232 000404 &R 3$ :GO TO 3$ IF NO ERROR 
023234 000240 NOP “RETURN HERE IF ERROR 
023236 104000 EMT ;ERROR NUMBER DEFINED BY SUBROUTINE 
023240 000137 02374 JMP 13§ :GO 10 13$ IF ERROR 
Fe 24 023244 3$: 
ath gSET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
ga FL a 
993 023244 112737 000024 001542 MOVA @RMARTPUTINX ;SETUP PUT INDEX TABLE 
623252 112737 OC00200 001544 MOVA #200,PUTINKX*#1 :SET TERMINATOR BYTE 
023260 012737 000001 1634 MOV #DMD , RMMR 10 SET RMMR1 OUTPUT BUFFER = DMD 
023266 737 0643160 JSR PC PUT 7GO WRITE RMMR1 VIA PUT SUBROUTINE 
023272 000404 BR 4$ :GO TO 4$ IF NO ERROR 
023274 000240 NOP RETURN HERE IF ERROR 
023276 104000 : EMy ZERROR DEFINED BY PUT SUBROUTINE 
023300 000137 023674 JMP 1%3$ :GO TO 13% IF ERROR 
994 023304 4$: 
995 023304 112737 000024 901543 MOVE #RMMRY.PUTINX :SETUP PUT INDEX TABLE 
023312 112737 000200 001544 MOV #200. PUTINX+*1  ;:SET TERMINATOR BYTE 
023320 012737 001401 001434 MOV #DMD ' MUR! MOC, RMMR10 >SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC 
_ 023326 004737 043160 JSR PC PUT 7GO WRITE RMMR1 VIA PUT SUBROUTINE 
023332 000404 Be $$ :GO TO 5$ IF NO ERROR 
023334 000240 NOP :RETURN HERE IF ERROR 
023336 104000 EMT : ERROR DEFINED BY PUT SUBROUTINE 
023340 000137 023674 JMP 13$ :GO TO 13$ IF ERROR 
996 025344 S$: 
997 
998 
Be SVOLUME VALID IS <EFT RESET FOR THE TEST 
1001 023344 ” 46$: 
1002 023344 012737 000001 001410 MOV #G6C,RMCS10 ae 
1003 023352 050237 001410 RIS R2,RMCS10 sWRITE FUNCTION CODE IN BUFFER 
1004 023356 012737 103274 001414 MOV ,- M#BUFONE,RMBAO ;DUMMY BUS ADDRESS 
1005 023364 012737 177777 001412 moy/ #=1 ,RMWCO :DUMMY WORD COUNT 
1006 023372 005037 001416 CLR RMDAO :CLEAR DISK ADDRESS 
1007 023376 005037 001444 CLR RMDCO :CLEAR CYLINDER ADDRESS 
1008 023402 012737 010000 001442 MOV #FMT16,RMOFO -16 BIT FORMAT 
1009 023410 012703 001543 MOV #PUTINX,R3 :WRITE REGISTER INDEX TABLE 
1010 023414 112723 000004 MOVR ARMBA, (R3)+ 
1011 0234 112 000002 MOVB #RMWC, (R3) + 
1012 0234 112723 32 MOV A#RMOF , (R3) + 
1013 023430 112723 000006 MOV #RMDA, (R3) + 
1014 0234 112723 34 MOV #RMDC, (R3)+ 
1015 023440 112723 000000 MOVB #RMCS1, (R3)+ 
7016 023444 112713 000200 MOY #200, (R3) | 
1017 023450 004737 043160 JSR PC PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 


‘oe RMO5/3/2 FCTNL TST 1 
OMMAND TEST 


INVALID 


1049 
1050 023722 
023726 


C 


000137 


013701 
012737 


004737 
040900 


023674 
043522 


042719 


023674 
047706 


023674 


001140 


000002 
000076 


023226 


MACRO 


001142 


007140 
001 346 


001226 


ms ey 
s\* a 18) 


’$: 


BS: 


9$: 


10$: 


11§: 


15$: 


7$ 


ia 
PC, TIMOUT 
PC ,GET 

&$ 


13$ 
PC PRIERR 
9$ 


PC a(SP)+¢ 
13§ 


-GO 
recotaren). SGDDAT 
;BAD DATA FOR TYPEOUT 
IS IVC STATUS CORRECT? 
SvESs-2 


@*Civc, SGDDAT 
RMER21. $BDDAT 
#*ClvC $BDDAT 
— oo 


216 
13$ 


ie 
#ATA,SGDDAT 


#°CATA, $BDDAT 
$GDDAT , SBDDAT 


FNCDIB(R2) ,SGDDAT 
-RMDSI 


| | E 10 
eAPR=B] 11:43:28 PAGE 13-38 


:G0 TO 7$ IF NO Spel 


sRETURN HERE [JF ERRO 

;ERROR # DEFINED an °PUT SUBROUT INE 
:GO TO 13$ IF ERR 

:WAIT FOR GO TO RESET 


:GQ READ REGISTER(S) WIT GET SUBROUTINE 
:GO TO 8$ JF NO ERROR 

ZRETURN HERE IF ERROR 

;ERROR # DEFINED a GET SUBROUT INE 

-GO TO 13$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 9$ IF NO ERROR 
sRETURN HERE IF ERROR 


;ERROR # DEFINED BY PRIERR SUBROUT INE 


;GO BACK FOR MORE ERROR CHECKS 
O TO 13$ IF ERROR 
;GET ENTRY FROM FUNCTION CODE TABLE 


joe AN ERROR DETECTED?? 


:YES = ATA SHOULD BE ON 
:GET DRIVE'S ATTENTION 
71S ATA STATUS OK?? 
$TES*: 


,GO TO NEXT FUNCTION CODE 
; DONE ?? 


SIGS 2 
;TEST NEXT FUNCTION 


RPE STREETER EERE EKER EOD 


-w TEST 33 


+o 733. 


INVALID ADDRESS ERROR TEST 


"<P EE EERE ERARAERERREKEKERAEREREERERAEEP EEE 


MSTACK,SP 
$BASE ,RO 


TSTOQUE, R1 
#33, $TESTN 


PC 1S] PRP 


04000 


;SCOPE CALL 
START OF TEST 


INITIALIZE STACK POINTER 

;RQ = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 
3 TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER ®@ SELECT DEVICE 


SEQ 0121 


1061 
1062 


RMOS/3/2 FCINL TSTog 
ADDRESS ERROR TES! 


INVALID 


0 
023770 


023770 
023776 
124004 


02 
024070 


2 0246070 


024214 


004737 
012702 


004737 
000404 
000240 
104900 
000137 


112737 
112737 
012737 
004737 
000404 
000240 
104000 
C001 37 


112737 
112737 


04 
000240 
000 
000137 


112757 
112737 
012737 
004737 
000404 
000240 
104000 
000137 
012737 


024464 


042624 
000000 


052264 


0244646 


000024 
000200 
OCO001 
043160 


024464 


043760 


0244646 


000200 
000023 
043160 


026464 
000001 


900002 
000032 


F 
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001543 
001544 
007434 


007543 
001544 
001434 


007543 
001544 
0014170 


0071410 


001414 
001412 
001416 
001444 
001442 


10 


13-39 


BR 1$ 3G0 TO 1$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY TSTPRP SUBROUTINE 
+ JMP 13$ 3;GO TO 13% IF ERROR 
JSR PC.GETSTS ;SETUP FOR STATUS 
‘i MOV #NOP ,R2 
)SR PC. CNICLR 360 15546 gy CLEAR 
ata] 3$ :GO TO 3$ IF NO ERR 
NOP ‘AP rURN HERE IF ERROR 
EMT ZERROR NUMBER DEFINED BY SURROUTINE 
re MP 13% :;GO TO 13$ JF ERROR 
sSET O aor MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
ae 
MOVS #RMMR? PUT INK ;SETUP PUT INDEX TABLE 
MOVB #200 ,PUTINK¢1 7SET TERMINATOR BYTE 
MOV #DMD , RMMR1O ;SET RMMR1 OUTPUT BUFFER = DMD 
JS PC Purl 3;GO WRITE RMMRIT VIA PUT SUBROUTINE 
AR é$ :GO TO 4$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT ZERROR DEFINED BY PUT SUBROUTINE 
i SMP 13$ ;GO TO 13$ IF ERROR 
MOVA SRMMAT PUT INK ;SETUP PUT INDEX TABLE 
“OVS #200 .PUTINK?7 7SET TERMINATOR BYTE 
MOY #DMD ' MUR) MOC, RMMR10 ;SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC 
JSR PC Pur :GO WRITE RMMR1 VIA PUT SUBROUTINE 
yn S$ ;GO TO 5$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMY sERROR DEFINED BY PUT SUBROUTINE 
- IME 13$ ;GO TO 13$ IF ERROR 
7SET VOLUME VALID BEFORE ISSUING FUNCTION CODE gre TESTED 
“O/B #QMC051 PUTIN SETUP PUT INDEX TABLE 
MOVB #200, PUT INX+1 “SET TERMINATOR Byte 
MOY BPAKACK'GO, RMCS10 3;SET RMCS1 OUTPUT BUFFER = PAKACK'!GO 
JSR PC PUT :GO WRITE RMCS1 VIA PUT SUBROUT INE 
lal 6 7:G0 TO 6$ IF NO ERROR 
NOP RE TURN HERE IF ERROR 
EMT ZERROR DEFINED BY PUT SUBROUTINE 
> jMpP 13$ :GO TO 13$ IF ERROR 
63: 
MOV #G0,RMCS10 
BIS R2,RMCS10 :WRITE FUNCTION CODE IN BUFFER 
MOV #EUFONE,RMBAO ;DUMMY BUS ADDRESS 
MOV #=-1 _RMWCO ;DUMMY WORD COUNT 
MOV #-1 ,RMDAO ;USE INVALID DISK ADDRESS 
MOV #-7 RMDCC ZUSE INVALID CYLINDER ADDRESS 
MOY #FMT16, RMOF O 316 BIT FORMAT 
MOV #PUTINK, R3 SWRITE REGISTER INDEX TABLE 
MOV5 #RMBA, (R3) + 
MOB MRMWC, (R35) 
MOVA MRMOF , 


‘.. 


G 10 


| tates RMO5/3/2 FCTNL TST 1 MACRO V06.00 S-APR@B1 11:43:28 PAGE 13-40 
TS INVALID ADDRESS ERROR TES? 

1079 024220 112723 000006 MO VB BRMDA, (R3) + 

1080 024226 112723 (C00034 MO vB ARMDC, (R3) 

1081 924230 112723 000000 MOA #RMCS7 (RS) 

1082 024234 112713 000200 “OVS #200, (R53) 

1083 924260 004737 043160 JSR PC Put ;GO rg REGISTER(S) WIT PUT SUBROUTINE 
024244 000404 RR 7$ :GO TO 7$ IF NO ERROR 
024266 000240 NOP :RETURN HERE IF ERROR 
024250 104000 EMT sERROR # DEFINED BY PIT SUBROUTINE 
024252 000137 024464 JMP 13$ :GO TO 135$ IF ERROR 

1one 024256 006737 043522 7$: JSR oF IMOuT sWAIT FOR GO TO RESET 

1086 024262 004737 042710 /SR PC GE! :GO READ REGISTER(S) WITH GET SUBROUTINE 
024266 000404 5R 8$ :GO TO 8$ IF NO ER ROR, 
024270 000240 NOP RETURN HERE IF ERROR 
924272 104000 EMT “ERROR # DEFINED BY GET SUBROUTINE 
624274 000137 026464 JMP 13$ :GO TO 13$ IF ERROR 

1087 024300 eS: 

1088 024300 004737 043706 JSR Pc PRIERR ;GO CHECK FOR PRIMARY ERRORS 
024304 000405 BR 9$ _7G0 TO 9$ IF NO ERROR 
024306 000240 - NOP ;RETURN HERE IF ERROR 
024310 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
024312 004736 !SR C,a@(SP)¢ ;GO BACK FOR MORE ERROR CHECKS 
024314 000137 024464 | IMP 13$ :GO TO 13$ IF ERROR 

1089 024320 016237 067136 001140 S$: MOV FNCDIB(R2) ,$GDDAT >GET ENTRY FROM FUNCTION CODE TABLE 

1090 024326 042737 175777 001140 BIC #*CIAE ,SGDDAT ' 

1091 024334 013737 001350 0017142 MOV RMERTI,$BDDAT  ;BAD DATA FOR TYPEQUT 

1092 024342 042737 175777 CO11¢> BIC #°CIAE,SBDDAT / 

1093 024350 023737 001140 00174. CMP TaeeAts SBDDAT ;1S JAE STATUS CORRECT? 

1094 024356 001402 BEQ Of 7¥ES?} 

1095 024360 104217 EMT 297 

1096 024362 000440 | BR 13$ 

1097 024364 016237 067136 901140 198: MOV FNCDTR(R2) ,$GDDAT 

1098 024372 032737 040000 001346 6IT i ae RMDS! :WAS AN ERROR DETECTED?? 

1099 024400 001403 BEC 1$ 3NO!! 

17090 024402 052737 100000 001140 Bis HATA, $GDDAT >YES - ATA SHOULD BE ON 

1107 024410 042737 077777 001140 11$: 8iC #*CATA, SGDDAT 

1102 024416 013737 001346 001742 MO'/ RMDS1, $BDDAT :GET DRIVE*S ATTENTION 

1103 024424 042737 077777 001142 BIC #°CATA,SBCDAT 

1106 024432 023737 001140 001142 ( $GDDAT , SBDDAT i1S ATA STATUS OK?? 

1105 024440 001402 PEO 12$ Mb LEE 

1106 024442 104255 EMT 255 

1107 024444 000407 2: Ae 

1108 024446 062702 600002 *2$: ADD #2,R2 :GO TO NEXT FUNCTION CODE 

1109 024452 022702 000076 CMP MILF 76,Re ; DONE ?? 

1110 024456 103402 B.0 13% S¥ES: 

1111 024460 000137 023752 JMP 2$ 7 TEST NEXT FUNCTION 

1112 024464 13$: 

1113 

71116 STUART TREE ERE RETREAT ERERREREREE EEE RS 

smlEST. 36 WRITE LOCK ERROR TEST 
STREP OPER EERE RTE E REAR EET EEE EE HEE HREEERERHREREEEEREREEREE EE ERE REED 

024464 S134: 
024464 000004 SCOPE :SCOPE CALL 
24466 000260 NOP :START OF TEST 
024470 012706 001100 MOV ASTACK ,SP s INITIALIZE STACK POINTER 
024476 013700 001276 Moy $BASE RO _ RO = UNIBUS ADDRESS 
024500 013701 001464 MO" TSTQUE ,R1 2 (R71) = DEVICE BEING TESTED 


H 10 
GE 13- 


“ZSMMBO AM05S/3/2 FCTNL °S7 7 MACRO Vos. 0L 44a? 2:43:28 PAG 
"ss WRITE LOCm ERROR TES’ 
14g 024506 012737 000034 00122 MOV #34 ,$7ES? :3SET TEST NUMBER IN APT MAIL BOx 
7716 026512 006737 047650 JSR PC .YSTPRP _ PREPARE DEVICE FOR TEST 
024516 040000 “WORD 0466000 “TASK DESCRIPTOR AS FOLLOWS: 
= CLEAR td ee : aes DEVICE 
024520 000404 SB iB “GO TO 1$ IF NO ERR 
024522 000240 NOP ZRETURN HERE IF ERROR 
024526 104000 eM. sERROR @ DEFINED TSTPRP SUBROUTINE 
9264526 000137 02525° MP 13$ 360 TO 13$ IF ERROR 
1117 024532 ‘$: 
1118 024532 004737 042626 JSR PC GETSTS ;SETUP FOR status 
1719 024536 012762 6000006 MOV - #NOP ,R2 
1120 026542 2$: 
1127 024542 006737 052264 JSR PC CNICLR 3;GO ISSUE CONTROLLER CLEAR 
024546 000404 BR 3$ GO TO 3$ JF NO ERROR 
924550 000240 NOP ;RETURN HERE IF ERROR 
024552 104000 emt sERROR NUMBER DEFINED BY SUBROUTINE 
024554 000137 025250 JMP 13$ :GO TO 13$ IF ERROR 
115 024560 3$: 
11246 sSE’ DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
1125 >CYLINDER, AND DIAGNOSTIC WRITE LOCK 
1126 0264560 112737 000024 001543 MOVB #RMMR1 PUT INX ;SETUP PUT INDEX TABLE 
024566 112737 C90200 001544 MOVB #200,PUTINK+1 “SET TERMINATOR BYTE 
026574 012737 000001 001434 MOV DMD, RMMR 10 :SET RMMR1 OUTPUT BUFFER = DMD 
024602 004737 043160 ASR PC PuT ;GO WRITE RMMR1 VIA PUT SUBROUTINE , 
024606 000404 . BR 4$ :GO TO 4$ IF NO ERROR 
024610 00024 NOP ZRETURN HERE IF ERROR 
024612 104000 EMT “ERROR DEFINED BY PUT SUBROUTINE 
024614 000137 025250 JMP 13§ :GO TO 13$ IF ERROR 
1127 024620 4$: 
1128 024620 112737 Q00024 001542 MOVE #RMMR 1 PUT INK ;SETUP PUT INDEX TABLE 
024626 112737 000200 001544 MOVA #200 PUTINK+1 :SET TERMINATOR BYTE 
026634 012737 001411 001434 MOY #DMD'MUR'MOC'MWPLRMMRIO :SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC ‘MwP 
024642 004737 043160. J5R PC PuT 3GO WRITE RMMR1 VIA PUT SUBROUT INE 
024646 000404 : BR 5¢ 3:60 TO 5$ IF NO ERROR 
024650 000240 NOP = RETURN HERE IF ERROR 
024652 104000 EMT :ERROR DEFINED BY PUT SUBROUTINE 
024654 000137 0252590 JMP 13¢ :GO TO 13$ IF ERROR 
1185 024660 S4: 
1131 SSE?’ VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 
1132 024660 112737 9001543 MOYR #RMCS1 PUT INX ;SETUP PUT INDEX TABLE 
024666 112737 000200 001544 MOVB #200, PUTINX+1 SET TERMINATOR BYTE 
024674 012737 000023 001470 MOV sPACACK GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = PAKACK'GO 
024702 004737 043160 JSR pc Pp :GO WRITE RMCS1 VIA PUT SUBROUTINE 
> 026706 000404 aR 6$ =GO TO 6$ IF NO ERROR 
" 024710 000240 NOP ;RETURN HERE IF ERROR 
024712 104000 FMT sERROR DEFINED BY PUT SUBROUTINE 
024714 000137 025250 JMpP 13$ :;GO TO 13$ IF ERROR 
1133 024720 4$: 
1134 024720 0612737 000001 9001419 MOV #G0,RMCS10 
1135 024726 050237 001410 BIS R2,RMCS10 ;WRITE FUNCTION CODE IN BUFFER 
1136 0264732 012737 163274 (CO01414 MOV #RBUF ONE , RMBAD ;DUMMY BUS ADDRESS 
1137 024740 012737 177777 O01é12 MOV #=-1 ,RMWCO ;DUMMY WORD COUNT 
1138 024746 005037 001416 CLR RMDAOD ;CLEAR DISK ADDRESS 
139 U26752 005037 001444 CLR RMD CO :CLEAR CYLINDER ADDRESS 
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WRITE LOCK ERROR TEST 


024756 


025250 


025250 


012737 
7 


Oo 24 Au 
tt ad od 4 ed 
PIMIMPOPMONE Pot 

NAAANAAA A 


= 


004737 
000404 
000240 
104000 
000137 


004737 


070000 
601543 
00000 


025259 
043522 


O4a2770 


025250 
043706 


025250 


17377 
001140 


067136 


040000 


100000 
077777 
001346 
077777 
001740 


000002 
000076 


024542 


MACRO ¥O06.00 


01440 


007140 


0011462 


001140 
001346 


001140 
001140 
001142 
001142 
O01T4<¢ 


7§$: 


BS: 


10$: 


11§: 


12$: 


13$: 


L-APh=8? 
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#FMT16 RMOFO 316 BIT FORMAT 
MPUTINN RS SWRITE REGISTER INDEX TABLE 
MRMBA,(R3)< 
#RMWC, (R39) + 
ARMOF ,(R3)+ 
MRMDA, (R3) + 
MRMDC, (R35) ¢ 
MRMACST, (RS) + 
#200, (R3) 
PC PUT GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
7$ :G0 TO 7$ IF NO ERROR 
;RETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SUBROUTINE 
13$ :GO TO 135% IF ERROR 
PC, TIMOUT zWAIT FOR GO TO RESET 
PC GET 3;GO READ REGISTER(S) WITH GET SUBROUTINE 
8$ ;GO TO 8$ IF NO ERROR 


“RETURN HERE IF ERROR 
“ERROR # DEFINED BY GET SUBROUTINE 
13$ :GO TO 13$ IF ERROR 


PC_PRIERR :GO CHECK FOR PRIMARY ERRORS 
3$ “G0 TO 9$ IF NO FRROR 

“RETURN HERE IF ERROR 

“ERROR # DEFINED BY PRIERR SUBROUTINE 
PC a(SP)+ “GO BACK FOR MORE ERROR CHECKS 
7; wee “GO TO 13% IF ERROR 
FNCDIB(R2) .SGDDAT >GET ENTRY FROM FUNCTION CODE TABLE 
#*CWLE.SGDDAT 
RMERTI.$BDDAT :BAD DATA FOR TYPEOUT 
#*CWLE ,.SBDDAT 
$GDDAT{$BDDAT :1S WLE STATUS CORRECT? 
10$ TYES!! 
229 
13$ 
-NCDIB(R2) .SGDDAT 
HERR RMDS] -WAS AN ERROR DETECTED?? 
11$ sno! ! 
#ATA.SGDDAT “YES = AYA SHOULD BE ON 
#“CATA _SGDDAT 
RMDSI.$BDDAT GET DRIVE'S ATTENTION 


#°CATA,SBDDAT ’ 


S$GDDAT , $BDDAT z1S ATA STATUS OK?? 
12$ <y¥eS{! 
255 : 
13$ ~ 
#2,R2 ix ;GO TO NEXT FUNCTION CODE 
MILF 76,R2 : DONE ?? 
13$ ey¥ES £3 
2$ > TEST NEXT FUNCTION 
ST OTTO RR RATER REETETEERRERAE EEE RERARETEREERKEEETHERE ER ee ED 
ERROR ABORT TESTS 


* 

eeTE z 
seTEST 55 
EOP ROE EERE EEEE TEETER EERE RERTERREREEEOREE DERE EERE ED 


7OT35; 


‘. > 


s 


cue 


ine 


5 wate RMO5S/3/2 FCTNL TST 7 


1181 


1182 


NON se ee ot -s - - - 4 
SSSLERRASS 


Aste ee ed et ed met ot 
SSSSSO 
SESeess 


. ERROR ABORT 


025250 


025264 
025270 
025276 
025302 


025304 
025306 


DOOOOCOOO 

WR WWWAN ANA 
Ww ee PA 
Or & LOK Lrgearno 


MMrononasnelonononononorononor 


PIAA AAU UU) 


ODODOOCoOoO 


OSS 
tw 
AAAI 
wi 
—# 
& 


UF sites 


013701 
012737 


004737 
054130 


000404 


000137 


004737 
012702 


004737 
000 


000137 
112737 


At ed et ot mt at ot OOOO O 
th nn a ne ss ss a 
MoMUrMoMoRoRoNoNNoNorTunony 
NNN 
NWWG 
NNN 


TESTS 


1109 
0017276 
001464 
000035 


041650 


025602 


042626 
000000 


052264 


025602 


000014 
000200 
040000 
0431760 


025602 


001543 


001544 


001424 


001410 


001414 
001412 
001416 
001444 
001442 
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sSCOPE CALL 
+ START OF TEST 


s INITIALIZE STACK POINTER 
;RO = UNIBUS ADDRESS 
;(R1) = DEVICE BEING TESTED 
SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOILOWS: 

sCLEAR CONTROLLER & SELECT DEVICE 
sVERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF *’SKI' 
sVERIFY RECALIBRATION 

:GO TO 1$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 9$ IF ERROR 


OR PIP’ IS SET 


:GO TO GETSTS SUBROUTINE 
:R2 = FUNCTION CODE 


:GO ISSUE CONTROLLER CLEAR 
:GO TO 3$ IF NO ERROR 
sRETURN HERE IF ERROR 


:ERROR # DEFINED BY CNTCLR SUBROUT I NE 
:GO TO 9$ IF ERROR 


sSETUP PUT INDEX TABLE 

:SET TERMINATOR BYTE 

;SET RMER1 OUTPUT BUFFER = UNS 

:GO WRITE RMER1 VIA PU? SUBROUTINE. 
:GO TO 4$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 9$ IF ERROR 


SCOPE 
NOP 
MOV STACK SP 
MOV SBASE .RO 
MOV TSTQUE ,R1 
MOV #35 .$TESTN 
JSR PC, TSTPRP 
.WORD 054130 
BR 7§ 
NOP 
EMT 
JMP o¢ 

1§: 

ZSETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC,GETSTS 

Mov #NOP, R2 

cS: 
JSR PC CNTCLR 
BR 3$ 
NOP 
EMT 
JMP 9$ 

23: 
MOVB #RMERT PUT INK 
MOYB #200, PUTINK+1 
MOV #UNS ,RMERTO 
JSR PC PUT 
ea 4% 
NOP 
EMT 
JMP 9$ 

4t: 


MOV 460,RMCS10 


MOV FONE , RMBAO 
MOV 4-1 ,RMWCO 
MOV #0 ,RMDAO 
MOV #0 ..RMDCO 
MOV #FMT 16, RMOFO 
MOV #PUTINX,R3 
MOVB ARMBA , (R53) + 
MOVB #RMWC , (R3) + 
MOVB #RMOF , (R3)+ 
MOVB #RMDA, (R35) + 
MOVB #RMDC, (R3) + 
MOVB #RMCS7,(R3)+ 
MOVB #206, (R3) 
JSR PC Purl 

BR 5$ 


sWRITE FUNCTION CODE IN BUFFER 
DUMMY BUS ADDRESS 

DUMMY WORD COUNT 

;CLEAR DISK ADDRESS 


7 CLEAR BF ns ADDRESS 
:16 BIT FORMAT 
SWRITE REGISTER INDEX TABLE 


2GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO0 TO 5$ IF ERROR 


NO 


SEQ 0126 


—— ee een ee 


EE ae - 


oo RMOS/3/2 FCINL TST 1 


ERROR ABORT TESTS 


25522 


025524 
1208 025526 
1209 
1210 

025526 
1212 025532 

025536 


025602 


025602 


1223 
1224 025630 
025634 


02 
1225 025650 
1226 
1227 

025650 
1228 025654 
1229 025654 

025662 


025710 


000240 
104000 


004 737 
004737 


0001 37 


062702 


022702 


103252 


000004 


013701 


043522 
042710 


025602 
043706 


025602 


000002 
000076 


001100 
001276 
001464 
000036 


041650 


026242 


042624 


000024 
000200 
000001 


0 
043160 


026242 
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001226 


001543 
001544 
001434 


NOP SRETURN HERE JF ERROR 
$¢ EMT ZERROR # DEFINED BY PUT SURROUTINE 
zWwAlT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 3GO TO TIMOUT SUBROUTINE 
JSR PC,GET ;G0 oe REGISTER(S) WITH GET SUBROUTINE 
BR 6$ GO TO 6$ IF NO ERROR 
NOF SOE TURN HERE IF ERROR 
EMT ZERROR #4 DEFINED BY GET SUBROUTINE 
i MP St -GO TO 9$ IF ERROR 
JSR PC PRIERR GO CHECK FOR PRIMARY ERRORS 
BR 7% :GO TO 7$ IF NO ERROR 
NOP “RE TURN HERE JF ERROR 
EMT - ERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC ,a(SP)-+ ;GO BACK FOR MORE ERROR CHECKS 
* JMP 9$ GO TO 9$ IF ERROR 
R$: 
ADD #2 .R2 ;ADVANCE FUNCTION CODE 
CMP MILF76,R2 :DONE ALL COMMANDS 
BHIS 2$ zNO !! 
9$: 
FITTER ERE REREAD 
> *TEST 36 RMR TEST 
be PRSRAATARAER ART REARAEHEE TEER EEE RAERKRAEREREEEEEREEEKEKREEKEEREEEE 
TST36: 
SCOPE sSCOPE CALL 
START OF TEST 
MOV ASTACK,SP INITIALIZE STACK POINTER 
MOV SBASE .RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED , 
MOV #36,$TESTN 72SET TEST NUMBER IN APT MAIL BOX 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
-WORD 940000 7; TASK DESCRIPTOR AS FOLLOWS: 
= CLEAR CONTROLLER & gees DEVICE 
6R 1$ 3;GO TO 1$ IF NO ERROR 
NOP *RE TURN HERE IF ERROR 
EMT : - ERROR # DEFINED BY TSTPRP SUBROUTINE 
‘é JMP T1$. :GO0 TO 11% IF ERROR 
7 SETUP 


GET INDEX TABLE ett READ ALL REGISTERS 
JSR PC,GETSTS :GO 7. GETSTS SUBROUTINE 


MOVB #RMMRI,PUTINX = ;Sr i.’ PUT INDEX TABLE 

MOVB #200 ,PUTINX+1 sS€° 'ERMINATOR BYTE 

MOV ADMD ,RMMR10 SET wMMR1 OUTPUT BUFFER = DMD 
JSR PC ,PuT :GO WRITE RMMR1 VIA PUT SUBROUTINE 
BR 3$ ;GO_ TO 3$ IF NO ERROR 

NOP s;RETURN HERE IF ERROR 

EMT sERROR DEFINED BY PUT SUBROUTINE 
JMP 11$ :GO TO 11$ IF ERROR 


SEQ 0127 


eee ee 
ae 
> 
~ 


1241 
1242 


0 
1243 


1244 


RMOS/3/2 FCINL | 
RMR TEST 


025714 


112737 
012737 
37 


112737 
112737 
012737 
004737 

04 


043160 


026242 
000000 
000200 
000023 
043160 


026242 
042710 


026242 


000024 
000200 
041401 
043160 


026242 
000000 
000200 
000001 
043160 


026242 
000000 
000200 
000015 
043160 
026242 
042710 
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001543 
001544 
001434 


001543 
001544 
001410 


007543 


001543 
001544 
001410 


001543 
007544 
001410 


3$: 


4$: 


é6$: 


‘$3 


8$: 


#RMMR 1. PUT INX 
#200, PUTINK¢1 | 
#DMD 'MUR!MOC,RMMR10 

PyT :GO write 


11$ 


#RMCS1 PUT INX 
#200,PUTINX+1 
#PAKACK !GO,RMCS10 


PC Purl 
5$ 


11$ 
PC,GET 
6$ 


11$ 


#RMMR 1, PUT INX 
#200, PUTINX+1 


sSETUP PUT INDEX TABLE 
“SET ia cab BYTE 


T KMMR1 OUTPUT BUFFER = 


RMR | VIA PUT SUBROUTINE 


;GO_ TO 4$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 
;GO TO 11$ IF ERROR 


sSETUP PUT INDEX TABLE 


SET TERMINATOR BYTE 


2 Sé7 
;GO WRITE reg tl VIA PUT SUBROUTINE 
:GO TO 5$ IF NO ERROR 


RMCS1 OUTPUT BUFFER = 


:RETURN HERE IF ERROR 


TO 6$ IF 


sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 11$ IF ERROR 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 NO ERROR 


;RETURN HERE IF ERROR 


#DMD ' MUR! MOC ! DBEN, RMMR10 


PC ,Pul 
7$ 


11$ 


#RMCS1,PUTINX 
#200, PUT INX+1 
#NOP!GO,RMCS10 


PC PUT 
8$ 


11$ 


ARMCS1,PUTINX 
#200,PUTINX+1 


;ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 11$ IF ERROR 


:SETUP PUT INDEX TABLE 
:SET TERMINATOR BYTE 
7SET RMMR1 OUTPUT BUFFER = 
:GO WRITE RMMR1 VIA PUT SUBROUTINE 

:GO TO 7$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR DEFINED BY PUT SUBROUTINE 
:GO TO 11$ IF ERROR 


sSETUP PUT INDEX TABLE 
:SET TERMINATOR BYTE 
;SET RMCS1 OUTPUT BUFFER = NOP!GO 
:GO WRITE RMCS1 VIA PUT SUBROUTINE 
:GO TO 8$ IF NO ER 


ROR 


;RETURN HERE IF ERROR 


:ERROR DEFINED BY PUT SUBROUTINE 
:GO TO 11% IF ERROR 


:SETUP PUT INDEX TABLE 


sSET TERMINATOR BYTE 


#OFF SET!GO,RMCS10 


PC ,PUT 
9$ 


11$ 
PC,GET 
10$ 


:SET RMCS1 OUTPUT BUFFER = 
;GO WRITE RMCS1 VIA PUT SUBROUTINE 


:GO TO 9$ IF NO ERROR 


;RETURN HERE IF ERROR 
sERROR DEFINED BY PUT SUBRCUTINE 
;GO TO 11$ IF ERROR 


SEQ 0128 


DMD ! MUR ! MOC 


PAKACK !GO 


DMD ' MUR ! MOC ! DBEN 


OF FSET! GO 


;GO a REGISTER(S) WITH GET SUBROUTINE 
:GO TO 10$ IF NO ER = 
:RETURN HERE IF ERRO 


;ERROR # DEFINED BY oer SUBROUT INE 


ap 


M 10 
CZRMMBO RMO5S/5/2 FCTINL TST 7 MACRO V946.00 4=APR=-81 11:43:28 PAGE 13-46 
736 RMR TES? 


SEQ 0129 


Ee tte there 
‘ 
. 


0 000137? 026242 JMP 11$ :GO TO 11$ IF ERROR 
1245 026212 10$: 
1246 026212 000240 NOP 
1247 026214 032737 000004 001350 SIT #RMR ,RMER1 | :1S RMR SET ?? 
1248 026222 001007 BNE 11$ ; YES 
1249 026224 012737 000006 001140 MOV #RMR ,$GDDAT ‘EXPECTED STATUS 
1250 026232 013737 001350 001142 MOV RMERT],$BDDAT  ;RECEIVED STATUS 
1251 026240 104222 EMT eee 
1252 026242 11$: 
1253 
1254 tei tttd ddd hhh hhh LALA EEE ALELAELLEALALALLAL LET 
“TEST 37 PARITY ERROR TEST 
i tdelietetdeidieit dtd dh hhh hhh hhh TELL ALALAEALLELELALLE LEE 
326242 TST3?: 
026242 000004 SCOPE sSCOPE CALL 
026244 000240 NOP START OF TEST 
626246 012706 001100 MOV AMSTACK,SP : INITIALIZE gh POINTER 
026252 013700 001276 MOV $SBASE .RO ;RO = UNIBUS ADDRESS 
026256 013701 001464 MOV TSTQUE,R1 :(R1) = DEVICE. BEING TESTED 
1255 G26262 012737 000037 001226 MOV #37 ,$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
1256 026270 004737 041650 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
026274 040000 -WORD 040000 : TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
026276 000404 BR 1$ ;GO_ TO 1$ IF NO ERROR 
026300 000240 NOP sRETURN HERE IF ERROR 
0263502 104000 , EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
026304 000137 026462 JMP 7$ :GO 10. 7$ IF ERROR 
1257 026310 1$: 
1258 026310 012702 000001 : MOV #1,Re :R2 = DATA PATTERN 
1259 026314 2$: 
1260 026314 004737 052264 JSR PC,CNTCLR >GO ISSUE CONTROLLER CLEAR 
026320 000404 BR 3$ :GO TO 3$ IF NO ERROR 
026322 000240 NOP sRETURN HERE IF ERROR 
026324 104000 EMT sERROR # DEFINED BY CNTCLR SUBROUTINE 
61 Gobekte 000137 026462 ‘6 JMP 7$ :GO TO 7$ IF ERROR 
1562 026332 111103 MOVB (R1) ,R3 ; SETUP RMCS2 
1263 026334 2703 177770 BIC #*CUNTMSK ,R3 
1264 026340 052703 000020 BIS APAT ,R3 
1265 026344 010337 001420 MOV R3,RMCS20 sOUTPUT VALUE TO RMCS2 
1266 026350 010237 001416 MOV R2,RMDAO : VALUE TO RMDA 
1267 026354 012703 001543 MOV A#PUTINX ,R3 sWRITE REGISTER OUTPUT INDEX 
026360 112723 000010 MOVB ARMCS2, (R3)+ 
1269 026364 112723 000006 MOVB ARMDA, (R3) + 
in 026370 112723 000200 MOVB #200, (R3)+ 
1272 026374 004737 043160 JSR PC ,PUT >GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
026400 000402 BR 4$ :GO TO 4$ IF NO ERROR 
026402 000240 NOP ;RETURN HERE IF ERROR 
026404 104000 EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
1273 026406 4$: 
1274 026406 004737 042710 JSR PC,GET #GO READ REGISTER(S) WITH GET SUBROUTINE 
026412 0004 BR 5$ ;GO TO 5$ IF NO ERROR 
026414 000240 NOP ;RETURN HERE IF ERROR 
026416 104000 EMT ERROR # DEFINED BY GET SUBROUTINE 
026420 000137 026462 JMP ($ :GO TO 7$ IF ERROR 


ey tet eNIEENREN aumnenneen: 


LL LL ee 


Salas RMO5/3/2 FCTINL TST 7 


PARITY ERROR TEST 


Rk ek eh eed eed ee 
SRBSUSSSSS 
PRN ODOT 

© Oooo 
SESSSSRH 
Ww NIIP 
Oo MLS 


im 
Ne 


1289 026510 
026514 


026516 


006302 
001315 


000004 


012737 


004737 
040000 


000404 
0 


001100 


000040 
041650 


027010 


042624 


000300 


052264 


026722 


050612 


027010 
042710 


MACRO V04.00 


001350 
001140 
001142 


001226 


000004 
000006 


6$: 


{Sz 


#PAR ,RMER1] 
6$ 


#PAR,SGDDAT , 


RMERT I. $BDDAT 
R2.$TMPO 
555°) 


R2 
2$ 


N 10 
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‘ae ERROR SET ?? 


SEXPECTED STATUS 
sRECEIVED STATUS 


:DATA PATTERN 


sADVANCE DATA PATTERN 
;BRANCH IF NOT DONE 


° FARA ERE KEE REE EERE REAR REEREE RED 


Z*TEST 40 


TST40: 


| 1$: 


2$: 


: 3$: 


4$: 


ILLEGAL REGISTER TEST 


ASTACK,SP 
$BASE,R 
TSTQUE ,R1 
#40, $TESTN 


PC, TSTPRP 
040000 


1$ 


10$ 


R5 

PC,GETSTS 
ERRVEC ,-(SP) 
ERRVEC+2,-(SP) 
#9$ ,ERRVEC 
ore 


PC,CNTCLR 
3$ 


PC ,DEVSEL 
4$ 


10$ 
PC .GET 
5$ 


CREEK EEE EEA 


;SCOPE CALL 
: START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
;(R1) = DEVICE BEING TESTED 
:SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS 

a en S pthae gS Re SELECT DEVICE 

:GO TO 1$ IF NOE 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 10$ IF ERROR 


;R5 = EXPECTED STATUS 
sSETUP FOR STATUS 
> PUSH ERRVE C oa STACK 
sPUSH ERRVEC+2 ON STACK 
;SETUP FOR BUS TIMEOUT 


sR2 = REGISTER INDEX 


:GO ie CONTROLLER CLEAR 

:GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

; ERROR NUMBER DEFINED BY SUBROUTINE 
:GO TO 7$ IF ERROR 

:R3 = REGISTER ADDRESS 


:CLEAR THE REGISTER 

:GO SELECT DEVICE 

:GO TO 4$ IF NO Jatin 

:RETURN HERE IF ERR 

sERROR # DEFINED BY  DEVSEL SUBROUT i NE 
GO TO 10$ IF ERROR 


:GO READ seo ge WITH GET SUBROUTINE 
:GO TO 5$ IF NO ERROR 


;RETURN HERE IF ERROR 
zERROR # DEFINED BY GET SUBROUTINE 


SEQ 0150 


LLL LE ae 


"40 


© ZRMMBO rae FCTNL TST 1 


GAL REGISTER TEST 


SS 


LNA 
oad cond end cash sah 
fwn oO 
oO © 


aes 
Doo IS 
O° 


KREFERESEES 


WINW WAG 
Vw Vn 
Mk WN -ODOONG Wf wr-oO 
oOo 
~ 
oO 
a 
Os 


— 2. 
WwW 
oO 


000137 


[SES 


Ooooooe 
ond and ond and and 
NOMIWIWPO 
“~—N- 


LNW 


026722 
043706 


026722 


000006 
000004 


041650 


——e ee 


———L EE a ee ——- 
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142 
001742 
001142 


000000 


001206 
001226 


‘i IMP 7$ G0 TO 7$ IF ERROR 
JSR PC_PRIERR :GO CHECK FOR PRIMARY ERRORS 
BR 6$ :GO TO 6$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
IMP 7$ :GO TO 7$ IF ERROR 
63: MOV RS.$GDDAT . 
MOV RMER1I,$BDDAT  :GET DRIVE'S ILR STATUS 
BIC #°CILR.$BDDAT | 
CMP SCDDAT. SBDDAT 215 -ILR STATUS OK?? 
MOV Re, _STMPO :SAVE R2 FOR ERROR DATA 
7$: ADD #2,R2 : INCREMENT THE REGISTER ADDRESS 
CMP #50,R2 : TIME TO CHECK THE EXTEND ADDRESS REG ? 
BH! 2$ =BRANCH IF NOT 
BLO 3 ;BRANCH IF ALREADY SFT uP 
MOV #ILR.RS sEXCEPT ILR HAPPEND 
MOV #416'A17.RMCS1(RO) :SET EXTENDED ADDRESS BITS 
MOV #54.R :SET ADDRESS TO 54,IF 22 REGISTERS 
MOV 50(RO) .R3 71S THIS 22 REG RH70 ? 
BIC #177776 ,R3 :LEFT ONLY BIT O AND BIT 1 
CMP #B81T0'BIT1.R3  ;:BIT 0 AND BIT 1 SET AT THE SAME TIME ? 
BEQ Rg :BRANCH IF SO 
MOV #50,R2 ; OTHERWISE .SET ADDRESS 10 50 
R$: CMP #74 R2 :ALL REGISTERS CHECKED ? 
BLOS 10$ :BRANCH IF SO 
BR 2$ “NEXT REGISTER 
98: CMP (SP)+, (SP)+ 
MOV (SP) + ERRVEC+2 :POP STACK INTO ERRVEC+2 
MOV (SP) +. ERRVEC :POP STACK INTO EPRVEC 
s 2 REAR RAETKEREEARREEREAEEEREAKEEEEAEKEERKAKRERAEERERAEEAEEEEEEEREKD 
=*TEST 41 SEEK FIRST CYLINDER 
SEAR REERERKEREEAEE RARE AAR EEEEKEEKEEKKEEKHKEREKEREE ERE 
TST41: 
SCOPE :SCOPE CALL 
NOP -START OF TEST 
MOV #STACK,SP : INITIALIZE STACK POINTER 
MOV $BASE ,RO -RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 >(R1) = DEVICE BEING TESTED 
MOV #1,$TIMES -:DO 1 ITERATION 
MOV #41, $TESTN -:SET TEST NUMBER IN APT MAIL BOX 
1$: 
JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
-WORD 054130 -TASK DESCRIPTOR AS FOLLOWS 


:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
;RECALIBRATE IF "'SKI‘’ OR ‘PIP"' IS SET 
VERIFY RECALIBRATION 


Sala RMOS/3/2 FCINL TST 1 
SEEK FIRST CYLINDER 


WhO 
© 
Nm 
~N 
aud 
oO 
™m 


sspERERE 
% 


004737 
004737 


004737 


043160 


027306 
042624 
043522 


042710 


027306 
043706 


027306 
051024 


027306 
050400 


027306 


044540 
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001444 
001416 
001410 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


2$ 


§$ 

#0. ae 
#0,RM 

aSEEK iGO, RMCS10 
#PUTINX “R2 
ARMDC, (R2)+ 
ARMDA, (R2) + 
#RMCS1, (R2)+ 


#200, (R2)+ 
PC PUT 
3$ 


8$ 
PC,GETSTS 
PC,TIMOUT 


PC,GET 
4$ 


8$ 
PC, PRIERR 
5$ 
PC,a(SP)+ 
8$ 


PC,SEKSTS 
6$ 


PC ,a(SP)+ 

8$ 

PC, CMPERRSTS 
ND TMSK 

DPE 

7$ 

PC ,a(SP)+ 

8$ 


PC,SECERR 
8$ 


PC,a(SP)+ 


:GO_ TO 2$ IF NO ERROR 


sRETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 8$ IF ERROR 


: CYLINDER = 0 

TRACK = 0, SECTOR = 0 

; LOAD SEEK COMMAND IN BUFFER 
;R2 POINTS TO REGISTER TABLE 
;WRITE REGISTER INDEX TABLE 


sWRITE TERMINATOR 

+ WRITE REGISTER(S) WITH PUT SUBROUTINE 
O TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

;ERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 8$ IF ERROR 
;SETUP FOR STATUS FETCH 
sWAIT FOR SEEK TO COMPLETE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 4$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 


:GO TO 8$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 5$ IF NO ERROR 
sRETURN HERE IF ERROR 


:ERROR # DEFINED BY PRIERR SUBROUT I NE 
:GO BACK FOR MORE ERROR CHECKS 


:GO TO 8$ IF ERROR 


:GO VERIFY RESULTS OF SEEK OPERATION 
:GO TO 6$ IF NO ERROR 
:RETURN HERE IF ERROR 


;ERROR # DEFINED BY SEKSTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
;GO TO 8$ IF ERROR 


: CHECK ANY ERRORS NOT MASKED 
;MASK FOR RMER1 

;MASK FOR RMER2 

:GO TO 7$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRS1S SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 8$ IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 
:GO TO 8$ IF NO ERROR 
:RETURN HERE IF ERROR 
sERROR # DEFINED BY SECERR SUBROUTINE 


:GO BACK FOR MORE ERROR CHECKS 


et Se eee ee tie ee eee 


— 


ie RMO5/3/2 FCTNL TST 1 


SEEK LAST CYLINDER 


1584 


86 
1387 027342 
027346 


027350 


027442 
1398 027446 
1399 027452 
1400 
1401 Sb 


0 
1402 027474 
1403 027474 


0 
1404 027514 
1405 027514 
027520 


012737 


004737 
054130 


000404 
000240 
104000 
000137 


012737 
012737 


004737 
004737 


ee 


041650 


027574 
001466 


043160 


027574 
042624 
043522 


042710 


027574 
045706 


027574 
051024 
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001206 
001226 


001444 
001416 
091410 


SEERA AREER AEE TRA ee DALAL RRR RRS RRR R RE REE RRR ae 


SATEST 42 


° Piieliclielel leit tet tt tte htt hehe PPP PEPE PEASE SAEEEELSLACELALAELE OE 


T8142: 


1$: 


3$: 


4$: 


S$: 


SCOPE 


SEEK LAST CYLINDER 


sSCOPE CALL 

;START OF TEST 
ASTACK , SP s INITIALIZE STACK POINTER 
$BASE ,RO :RO = UNIBUS ADDRESS 
TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
#1,$TIMES :;D0 1 ITERATION 
#42, $TESIN ;7SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP sPREPARE DEVICE FOR TEST 


054130 ; TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
7RECALIBRATE IF ‘‘SKI’’ OR 'PIP’’ IS SET 
Bg ay RECAL IBRATION 
2$ O TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ZERROR # DEFINED BY TSTPRP SUBROUTINE 
8$ >GO TO 8$ IF ERROR 


#822. ,RMDCO ;LAST CYLINDER 

#0 ,RMDAO : TRACK = 0, SECTOR = 0 
#SEEK'GO, RMCS10 :;LOAD SEEK COMMAND IN BUFFER 
#PUT INX,R2 :R2 POINTS TO REGISTER TABLE 


#RMDC, (R2)+ sWRITE REGISTER INDEX TABLE 
#ARMDA, (R2) + 
#RMCS1, (R2)+ 
#200, (R2)+ ;WRITE TERMINATOR 
PC PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 3$ IF NO ERROR 
*RETURN HERE IF ERROR 
zERROR # ge BY PUT SUBROUTINE 
8$ :GO TO 8$ IF ERROR 
PC,GETSTS SETUP FOR STATUS FETCH 
PC, TIMOUT -WAIT FOR SEEK TO COMPLETE 
PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
4$ GO TO 4$ IF NO ERROR 


;RETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
8$ :GO TO 8$ IF ERROR 


PC,PRIERR :GO CHECK FOR PRIMARY ERRORS’ 

5$ :GO TO 5$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

;GO TO 8$ IF ERROR 


:GO VERIFY RESULTS OF SEEK OPERATION 
:GO TO 6$ IF NO ERROR 


PC,a(SP)+ 
8$ 


PC,SEKSTS 
6$ 


tal 


0 
1406 


1407 


1413 
1414 
1415 
1416 


1418 


RMOS/3/2 FCTINL TST 1 
SEEK LAST CYLINDER 


027522 


027630 
027636 
027636 
027642 


027644 


027656 


009249 
104000 
004736 
009137 


004737 
115760 


004736 


000004 


012737 
012737 


004737 
054130 


027574 
050400 


027574 
044540 


001100 

4 
000002 
00004 3 
000007 
041650 


030106 
000000 


000 
000200 
043160 


001206 
001226 


001444 


001 
001 


~& 
and aad 


Oo 


6$: 


7$: 


8$: 
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sRETURN HERE IF ERROR 
sERROR # DEFINED BY SEKSTS SUBROUTINE 


PC,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
8$ :GO TO 8$ IF ERROR 
PC,CMPERRSTS :CHECK ANY ERRORS NOT MASKED 
ND TMSK :MASK FOR RMER1 
DPE sMASK FOR RMER2 
7$ :GO TO 7$ IF NO ERROR 
sRETURN HERE IF ERROR 
sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
8$ :GO TO 8$ IF ERROR 
PC,SECERR ‘> CHECK FOR SECONDARY ERRORS 
8$ O TO 8$ IF NO ERROR 
‘RETURN HERE IF ERROR 
;ERROR # DEFINED BY SECERR SUBROUT INE 
PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 


tet et tee ee ee OPA eee ERE REE SEES SSS OESASOSSSSCOCCoCC.C. oS 


s*TEST 43 


* ttf tt eee eee PRR E REE ERE SESS SESS CS SSCS SC SSC LCC. oo eo 


TST43: 


1$: 


SEEK PRIME CYLINDERS 


sSCOPE CALL 
>START OF TEST 


#STACK,SP > INITIALIZE STACK POINTER 
$BASE RO :RO = UNIBUS ADDRESS 
TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
#2. $TIMES -:DO 2 ITERATIONS 
#43, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
#1,RMDCO :FIRST CYLINDER = 1 
PC_TSTPRP ;PREPARE DEVICE FOR TEST 
054130 : TASK DESCRIPTOR AS FOLLOWS: 
SCLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ''SKI'' OR ‘PIP’ IS SET 
: VERIFY RECALIBRATION 
2$ >GO TO 2$ IF NO ERROR 
“RETURN HERE IF ERROR 
:ERROR # DEFINED BY TSTPRP SUBROUTINE 
9$ -GO TO 9$ IF ERROR 


; TRACK = 0, SECTOR = 0 
:LOAD SEEK COMMAND IN BUFFER 
:R2 POINTS TO REGISTER TABLE 


#0 ,RMDAO 
ASEEK!GO,RMCS10 
APUTINX,R 


#RMDC, (R2)+ :WRITE REGISTER INDEX TABLE 

#RMDA, (R2) + 

#RMCS1, (R2)+ 

#200, (R2)+ sWRITE TERMINATOR 

PC,PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
3$ ;GO TO 3$ IF NO ERROR 


ae RMO5/3/2 FCTINL TST 1 
SEEK PRIME CYLINDERS 


027724 


004737 
004737 


004737 


0001 37 
004737 


0001 37 
004737 


000157 


000240 
012706 
013700 


030106 


042624 
043522 


042710 


030106 
043706 


030106 
051024 


030106 
050400 


030106 
044540 


030106 


001444 
001000 


027636 


007444 


3$: 


4$: 


5$: 


6$: 


7S: 


8$: 


9$: 
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9$ 


PC,GETSTS 
PC, TIMOUT 


PC,GET 
4$ 


9$ 
PC,PRIERR 
5$ 


PC,@(SP)+ 
9$ 


PC,SEKSTS 
6$ 


PC,a(SP)+ 
9$ 


PC,CMPERRSTS 


ND TMSK 
DPE 
7$ 


PC,a(SP)+ 
9$ 


PC,SECERR 
8$ 
PC,a@(SP)+ 
9$ 


RMD CO 

4512. ,RMDCO 
9$ 

1$ 


sRETURN HERE IF ERROR 
sERROR # DEFINED BY PUT SURROUTINE 


360 TO 9$ IF ERROR 


sSETUP FOR STATUS FETCH 
sWAIT FOR SEEK TO COMPLETE 


:GO READ eee WITH GET SUBROUTINE 
:GO 70 4$ IF NO ERROR 
sRETURN HERE IF ERROR 
;ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 9$ IF ERROR Sore 
‘a CHECK FOR PRIMARY ERRORS 
O TO 5$ IF NO ERROR 
‘RETURN HERE IF ERROR 
;ERROR # DEFINED BY PRIERR SUBROUT I NE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 9$ IF ERROR 


:GO VERIFY RESULTS OF SEEK OPERATION 
; TO 6$ IF NO ERROR 

:RETURN HERE IF ERROR 

sERROR # DEFINED BY SEKSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 9$ IF ERROR 


:CHECK ANY ERRORS NOT MASKED 

sMASK FOR RMER1 

sMASK FOR RMER2 

:GO TO 7$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
>GO BACK FOR MORE ERROR CHECKS 

:GO TO 9$ IF ERROR 


‘oa or ke FOR Bg gl ERRORS 
O 8$ IF NO ERROR 

‘RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 

:GO BACK FOR MORE ERROR CHECKS 

:GO TO 9$ IF ERROR 


;SHIFT TO NEXT PRIME CYLINDER 
Ao Peg TEST DONE?? 


:GO DO NEXT CYLINDER 


SRE RARER REE EE KEKE REE E EEA RAR AEARERERERREREE HERE EEE 


s*TEST 44 


1S 144: 


SEEK ZERO DIFFERENCE 


SERRE KEKE EERE REE EEE ARERR TEER EE ED 


ASTACK ,SP 
$BASE ,RO 


sSCOPE CALL 

iSTART OF TEST 

s INITIALIZE STACK POINTER 
;RO = UNIBUS ADDRESS 


SEQ 01 


; G 11 
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144 SEEK ZERO DIFFERENCE ‘ 


030122 013701 001464 MOV TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
saat 030126 012737 C00044 901226 MOV 444 ,$TESTN 77SET TEST NUMBER IN APT MAIL 80x 
is 
1448 030134 1$: 
1449 9030134 004737 041650 JSR PC, TSTFRP ;PREPARE DEVICE FOR TEST 
030140 054130 -WORD 054730 ; TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
; PACK ACKNOWLEDGE IF VOLUME NOT VALID 
) “VERIFY PACK ACKNOWLEDGE 
:RECAL IBRATE IF ‘’SKI'’ OR ‘PIP’’ IS SET 
; VERIFY RECALIBRATION 
030142 - 000404 BR 2$ :GO TO 2$ IF NO ee 
030144 000240 NOP ;RETURN HERE IF ERRO 
030146 104000 EMT ;ERROR # DEFINED By TSTPRP SUBROUT I NE 
030150 000137 030406 JMP 10$ ;GO TO 10$ IF ERROR 
1450 030154 2$: 
1451 030154 012703 000003 MOV #3,R3 ;R3 = NUMBER OF SEEKS 
1452 030160 012737 000000 001444 MOV #0,RMDCO ;CYLINDER = 0 
1455 €30166 012737 OCOO000 001416 MOV #0,RMDAO : TRACK = 0, SECTOR = 0 
1454 030174 012737 000005 001410 MOV #SEEK!GO, RMCS10 : FUNCTION CODE FOR SEEK 
1455 030202 012702 001543 MOV #PUT INX ,R2 :R2 POINTS TO REGISTER INDEX 
1456 030206 112722 000006 MOVB #RMDA, (R2)+ sWRITE REGISTER INDEX TABLE 
1457 03021 112722 000034 MOVB ARMDC,(R2)+ 
1458 030216 112722 000000 MOVB #RMCS1, (R2)+ 
1459 030222 112722 000200 MOVB #200, (R2)+ ; TERMINATE TABLE 
1460 030226 3$: 
1461 030226 004737? 043160 JSR PC ,PUT ;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
030232 000404 ‘BR 4$ :GO TO 4$ IF NO ERROR 
030234 000240 NOP :RETURN HERE IF ERROR 
030236 104000 | EMT > ERROR # DEFINED BY PUT SUBROUTINE 
030240 000137 030406 JMP 10$ :GO TO 10$ IF ERROR 
1462 050244 004737 042624 4$: JSR PC,GETSTS :SETUP FOR READING STATUS 
anh 036250 004737 043522 JSR PC,TIMOUT ;WAIT FOR COMPLETION 
1465 030254 004737 042710 JSR PC,GET :G0 Ne REGISTER(S) WITH GET SUBROUTINE 
030260 000404 BR 5$ :GO TO 5$ IF NO ERROR 
030262 000240 NOP ‘BE TURN HERE IF ERROR 
030264 104000 EMT ;ERROR # DEFINED BY GET SUBROUTINE 
030266 000137 030406 JMP 10% :GO TO 10$ IF ERROR 
1466 030272 | 5$: 
1467 030272 004737 043706 JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
030276 000405 BR 6$ :GO TO 6$ IF NO ERROR 
030300 000240 NOP RETURN HERE IF ERROR 
030302 104000 EMT > ERROR # DEFINED BY PRIERR SUBROUTINE 
030304 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
030306 000137 030406 JMP 10$ :GO TO 10$ IF ERROR 
1468 030312 6$: 
1669 030312 004737 051024 JSR PC,SEKSTS ;GO VERIFY RESULTS OF SEEK OPERATION 
030316 000405 BR 7$ :GO TO 7$ IF NO ERROR 
030320 000240 NOP ;RETURN HERE IF ERROR 
030322 104000 EMT ;ERROR #4 DEFINED BY SEKSTS SUBROUTINE 
030324 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
030326 000137 030406 JMP 10$ ;GO TO 10$ IF ERROR 
1470 030332 7$: 
‘471 030332 004737 050400—- —-~~’ JSR «PC, CMPERRSTS* —; CHECK ANY ERRORS NOT MASKED 


030336 115760 \ «WORD NDIMSKk sMASK FOR RMER? 


A A Sete i ema aa 
ee 


7 RMMBO 
T4644 


1472 
1473 


1476 
1475 
1476 
1477 
1478 
1479 
1480 


149 


ROS “3/2 FCTNL TST 1 
SEEK ZERO DIFFERENCE 


050434 
030434 
030440 


030442 


030540 


005303 
001402 
000137 


000004 


012737 


004737 
052150 


000404 


004737 


030406 
044540 


030406 


030226 


001100 
001276 
001464 
000045 


041650 


050666 
001466 


043160 


030666 
042624 
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001226 


001444 
001416 
001410 


8$: 


9$: 


10$: 


. WORD 
B 


DPE 

8$ 

PC ,a(SP)+ 
10$ 


PC,SECERR 
9$ 


PC,a(SP)+ 
O$ 


;MASK FOR RMER2 


;GO TO 8$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
:GO BACK FOR MORE — CHECKS 

:GO TO 10$ IF ERROR 


; GO Sa FOR SECONDARY E®RORS 
:GO_TO -9$ IF NO ER sa 

7RETURN HERE IF ERROR 

sERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 


:GO TO 10$ IF ERROR 


VEST | ALL SEEKS?? 
:NO = GO DO NEXT SEEK 


ST RRA RARER KEE ERE REAR AERERREREEEEEREERERREEEEKKKEEE 


S*TEST 45 


1ST45: 


1$: 


3$: 


SEEK MAXIMUM DIFFERENCE FORWARD 


° Pi Rieiet tet td eee eee RPP PPPS SER SCSAESOSLAL SALAS. . SC 


ASTACK SP 


$BASE ,RO 
rSTBUE. R1 
#45, $TESTN 


PC, TSTPRP 
052130 


2$ 


8$ 

#822.,RMDCO 
#0,RMDAO 
A#SEEK!GO,RMCS10 
#PUTINX,R2 
ARMDC,(R2)+ 
HRMDA, (R2) + 
#RMCS1,(R2)+ 


#200, (R2)+ 
PC,PUT 
3$ 


8$ 
PC,GETSTS 


sSCOPE CALL 
> START OF TEST 


s INITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 
:;SET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 
; TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
>VERIFY CONTROLLER CLEAR OPERATION — 
sPACK ACKNOWLEDGE iF VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
2g A RECAL IBRATION 

O 2% IF NO ERROR 
‘RETURN HERE IF ERROR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 8$ IF ERROR 


;LAST CYLINDER : 

; TRACK = 90, SECTOR = 0 

:LOAD SEEK COMMAND IN BUFFER 
:R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 


;WRITE TERMINATOR 
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
;GO TO 3$ IF NO ERROR 
sRETURN HERE IF ERROR 
: ERROR a wt ERR BY PUT SUBROUTINE 
GO TO 8$ IF ERROR 
SETUP FOR STATUS FETCH 


SFO 0} 


ee _ = 


0 RMOS/3/2 FCTINL TST 1 
SEEK MAXIMUM DIFFERENCE FORWARD 
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EE Ee ary eee enemeeee 
a ee 


0350544 004737 043522? JSR PC, TIMOUT sWAIT FOR SEEK TO COMPLETE 
030550 004737 042710 JSR PC ,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
030554 0094 BR 4$ :GO TO 4$ JF NO ER te 
030556 000240 NOP “RETURN HERE IF ERROR 
0305 104 EMT sERROR # DEFINED BY GET SUBROUTINE 
Sepak 000137 030666 “a JMP 8$ :GO TO 8$ IF ERROR 
030566 004737 043706 JSR PC,PRIERR i CHECK FOR PRIMARY FRRORS 
030572 000405 BR 5$ O TO 5$ IF NO ERROR 
930574 000240 NOP “RETURN HERE IF ERROR 
030576 104000 EMT ;ERROR # DEFINED BY PRIERR SUBROUTINE 
030600 004736 JSR PC,a(SP)+ 3;GO BACK FOR MORE ERROR CHECKS 
Senene 000137 030666 x JMP 8$ ;GO TO 8$ IF ERROR 
004737 051024 JSR PC,SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
030612 00040 BR 6$ :GO TO 6$ IF NO ERROR 
030614 000240 NOP “RETURN HERE IF ERROR 
030616 104000 EMT = ERROR # DEFINED BY SEKSTS SUBROUTINE 
30620 004736 JSR PC,a@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
regs 000137 030666 - JMP 8$ :GO TO 8$ IF ERROR 
30626 004737 050400 JSR PC,CMPERRSTS ; CHECK ANY ERRORS NOT MASKED 
030632 115760 -WORD NDIMSK “MASK FOR RMER1 
30634 000010 . WORD DPE ;MASK FOR RMER2 
030636 000405 BR 7$ GO TO 7$ IF NO ERROR 
030640 000240 NOP s;RETURN HERE IF ERROR 
030642 104000 EMT :ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
030644 004736 JSR PC ai SP)+ :;GO BACK FOR MORE ERROR CHECKS 
pspeee 000137 030666 = JMP &$ ;GO TO 8$ IF ERROR 
030652 004737 044540 JSR PC,SECERR ;GO CHECK FOR SECONDARY ERRORS 
030656 000403 BR 8$ :GO TO 8$ IF NO ERROR 
30660 000240 NOP ert ;RETURN HERE IF ERROR 
030662 104000 EMT ZERROR # DEFINED BY SECERR SUBROUTINE 
030664 004736 JSR PC ,@(SP)+ ;GG BACK FOR MORE ERROR CHECKS 
030666 8$: 
CE ERR RRR REE ERR KKK KKKKEKEKEEED 
s*TEST 46 SEEK ADJACENT FORWARD 
SRE KEE RRR EKER ERK EKER EKER EEK KEE EKKKEKEKK ERE ERE 
30666 S146: . 
030666 000004 SCOPE ;SCOPE CALL 
030670 000240 NOP sSTART OF TEST 
030672 012706 001100 MOV ASTACK, SP ; INITIALIZE STACK POINTER 
30676 013700 001276 MOV $RASE ,RO ;RO = UNIBUS ADDRESS 
030702 013701 001464 MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
030706 012737 000046 001226 MOV H46,$TESTN ::SET TEST NUMBER IN APT MAIL BOx 
030714 1$: 
030714 004737 041650 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
030720 054130 -WORD 054130 ; TASK DESCRIPTOR /S FOLLOWS: 


;CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF *’SKI"' OR 'PIP'' IS SET 


a 
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746 SEEK ADJACENT FORWARD SEQ 015! 
; VERIFY RECALIBRATION 
030722 000404 BR 2$ :GO_ TO 2$ IF NO ERROR 
030724 000240 NOP | gRETURN HERE IF ERROR 
030726 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE P 
030730 000137 031170 JMP 10$ :GO TO 10$ IF ERROR ‘ 

1512 030734 2$: 

15135 030734 012737 O00000 001444 MOV #0,RMDCO ;CYLINDER = Q 

1514 030742 012737 Q00000 001416 MOV #0,RMDAO TRACK = 0, SECTOR = 0 

1515 030750 012737 000005 001410 MOV ASEEK!GO,RMCS10 ;FUNCTION CODE FOR SEEK 

1516 030756 012702 001543 MOV APITINX,R2 :R2 POINTS TO REGISTER INDEX 

1517 030762 112722 000034 MOVB ARMDC, (R2) + sWRITE REGISTER INDEX TABLE 

1518 030766 112722 000006 MOVB #RMDA, (Re) + 

1519 030772 112722 000000 MOVB ARMCS1, (R2)+ ‘ ‘. 

1360 Bs 008 112722 000200 - MOVB #200, (R2)+ : TERMINATE REGISTER TABLE 

1522 031002 004737 043160 JSR PC,PUT :GOQ WRITE REGISTER(S) WITH PUT SUBROUTINE 
031006 000404 BR 4$ :GO TO 4$ IF NO ERROR 
031010 000240 NOP ;RETURN HERE IF ERROR 
031012 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
031014 000137 031170 JMP 10$ ;GO TO 10$ IF ERROR 

1523 031020 004737 042624 4$: JSR PC,GETSTS "; SETUP FOR STATUS FETCH 

1268 031024 004737 043522 JSR PC,TIMOUT / gWAIT FOR COMPLETION 

1526 031030 004737 042710 JSR PC ett :GO READ REGISTER(S) WITH GET SUBROUTINE 
031034 000404 BR 5$ :GO TO 5$ IF NO ERROR 
031036 000240 NOP sRETURN HERE IF ERROR 
031040 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
031042 000137 031170 JMP 10$ :GO TO 10$ IF ERROR 

1527 031046 5$: 

1528 031046 004737 043706 JSR PC,PRIERR >GO CHECK FOR PRIMARY ERRORS 
031052 000405 BR 6$ :GO TO 6$ IF NO ERROR 
031054 000240 NOP sRETURN HERE IF ERROR 
031056 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
031060 004736 JSR PC ,a@(SP)+ :GO BACK FOR MORE ERROR CHECKS 
031062 000137 031170 JMP 10$ :GO TO 10$ IF ERROR 

1529 031066 6$: 

1530 931066 004737 051024 JSR PC,SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
031072 000405 BR 7$ :GO TO 7$ IF NO ERROR : 
031074 000240 NOP sRETURN HERE IF ERROR 
031076 104000 EMT sERROR # DEFINED BY SEKSTS SUBROUTINE 
031100 004736 JSR PC,a(SP)+ >GO BACK FOR MORE ERROR CHECKS 
C31102 000137 031170 JMP 10% :GO TO 10$ iF ERROR 

1531 031106 7$: 

1532 031106 004737 050400 JSR PC,CMPERRSTS ; CHECK ANY ERRORS NOT MASKED 
031112 115760 -WORD NDTMSK sMASK FOR RMER1 
031114 000010 -WORD DPE sMASK FOR RMER2 
031116 000405 BR 8$ ;GO TO 8$ IF NO ERROR 
031120 000240 NOP RETURN HERE IF ERROR 
031122 104000 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
031124 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
031126 000137 031170 JMP 10$ :GO TO 10$ IF ERROR 

1533 031132 8$: 

1534 031132 004737 044540 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
031136 000405 BR 9$ ;GO TO 9$ IF NO ERROR 
031140 000240 NOP ;RETURN HERE IF ERROR 
037742 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
C31144 004736 JSR PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 


er ete ete 


LL A A tS 


CZRMMBO RMO5/3/2 FCINL TST 7 
SEEK ADJACENT FORWARD 


746 


MIWA 


DOVE 


ab ad od ed nd td 
ek eed eh eed 
N WIViva se 


WU 
‘a ee te 
NO 


OCD DOOCOOCOoO 
WANA WANA 
MMM NONOKyN Ra 


u~-=—- —-SCOoONNN 


031304 


oO 
© 
W 
os 
Ww 
© 
~ 


OQoooo SG0O0C0C0OoO 
LALAILAI AIA AAA AIA 
—_) ~~ tt nt ed eed ed eed od 


1567 531350 
1562 051350 


0001 37 
005737 
01004 


0 
005237 
000137 


000004 


012737 


004737 
054130 


000404 


004 737 


031170 
001444 


001444 
031062 


001100 
091276 
001464 
000047 


041650 


031474 


000001 
000000 


000200 
043160 


031474 
042624 
043522 


042710 


031474 
045706 
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001226 


001444 
001416 
001410 


:GO TO 10$ IF ERROR 

sFIRST TIME THROUGH?? 

NO?! 

sYES = SEEK TO ADJACENT CYLINDER FORWARD 


. FERRER KEE EERE KERR RE KERR 


® fH KK KEK EEEEKEEEKRKEKAHHEEE 


sSCOPE CALL 

sSTART OF TEST 

sINITIALIZE STACK POINTER 

:RO = UNIBUS ADDRESS 

:(R1) = DEVICE BEING TESTED 

:sSET TEST NUMBER IN APT MAIL BOX 


sPREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

:CLEAR CONTROLLER & SELECT DEVICE 

: VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

sRECALIBRATE IF *'SKI'* OR 'PIP’’ IS SET 
: VERIFY RECALIBRATION 

:GO TO 2$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 10$ IF ERROR 


-CYLINDER = 1 

; TRACK = 0, SECTOR = 0 

: FUNCTION Cope FOR SEEK 

:R2 POINTS TO REGISTER INDEX 
:WRITE REGISTER INDEX TABLE 


; TERMINATE TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 4$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 10$ IF ERROR 

:SETUP TO READ ALL REGISTERS 

sWAIT FOR SEEK TO COMPLETE 


‘oS READ REGISTER(S) WITH GET SUBROUTINE 
O TO 5$ IF NO ER es 

RETURN HERE IF ERRO 

sERROR # DEFINED BY “GET SUBROUT I NE 


:GO TO 10$ IF ERROR 


JMP 10$ 
93: 
TST RMDCO 
BNE 10$ 
INC RMDCO 
JMP 3$ 
10$: 
> x TEST 47 SEEK ADJACENT REVERSE 
TS147: 
SCOPE 
NOP 
MOV ASTACK,SP 
MOV $BASE ,R 
MOV TSTQUE,R1 
MOV #47, $TESIN 
1$: 
JSR PC,TSTPRP 
. WORD 054130 
BR 2$ 
NOP 
EMT 
JMP 10$ 
C$: 
MOV #1,RMDCO 
MOV #0,RMDAO 
MOV #SEEK!GO, RMCS10 
MOV APUT INX R2 
MOVB ARMDA, (R2)+ 
MOVB #RMDC, (R2)+ 
MOVB #RMCS1, (R2)+ 
$6 MOVB #200, (R2)+ 
JSR PC ,PuUT 
BR 4$ 
NOP 
EMT 
JMP 10$ 
4$: JSR PC,GETSTS 
JSR PC, TIMOUT 
JSR PC,GET 
BR 5$ 
NOP 
EMT 
JMP 10$ 
S$: 


JSR PC,PRIERR 


;GO CHECK FOR PRIMARY ERRORS 


SEQ 0140 


— 


a eee ate ~—— 


CZ7RMMBO 
4? 


0 
1563 


1564 


1565 
1566 


RMOS/3/2 FCTNL TST 1 
SEEK ADJACENT REVERSE 


031354 


031474 


031474 


022737 
001004 
005337 


012757 


004737 
054130 


000404 
000240 


031474 
051024 


031474 
050400 


031474 
044540 


031474 
000001 


001444 
031504 


001100 
001276 
001464 
000050 


041650 
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001444 


001226 


6$: 


7$: 


8$: 


9$: 


10$: 


L 11 
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6$ :GO TO 6$ IF NO ERROR 
“RETURN HERE IF ERROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 
PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
10$ -GO TO 10$ IF ERROR 


PC,SEKSTS ;GO VERIFY RESULTS OF SEEK OPERATION 
7$ :GO TO 7$ IF NO ERROR 


;RETURN HERE IF ERROR 
sERROR # DEFINED BY SEKSTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
"GO TO 10$ IF ERROR 
PC,CMPERRSTS ; CHECK ANY ERRORS NOT MASKED 
NDTMSK ;MASK FOR RMER1 
DPE MASK FOR RMER2 
8$ :GO TO 8$ IF NO ERROR 
sRETURN HERE IF ERROR 
sERROR # DEFINED BY CMPERRSTS SUBROUTINE 


PC ,a(SP)+ 
10$ 


PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
10$ :GO TO 10$ IF ERROR 
PC,SECERR ;GO CHECK FOR SECONDARY ERRORS 
9$ :GO TO 9$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY SECERR SUBROUTINE 
PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
10$ :GO TO 10$ IF ERROR 
#1 ,RMDCO 31S THIS THE FIRST SEEK?? 
10$ sNO!! 
RMDCO sYES - SEEK TO ADJACENT CYLINDER 
3$ :GO SEEK 


SEEKER EKER EEE EEE REAEREREREREREREREREEE 


SRTEST 50 


FEA AEA REERERERED 


1S150: 


1$: 


SCOPE 


BR 
NOP 


SEEK INVALID SECTOR 


sSCOPE CALL 
:START OF TEST 


ASTACK ,SP INITIALIZE gis POINTER 

$BASE ,RO :RO = UNIBUS ADDRESS 

TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 

#50, $TESTN SET TEST NUMBER IN APT MAIL BOX 
PC,TSTPRP sPREPARE DEVICE FOR TEST 


054130 ; TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF ‘'SKI’* OR "PIP*' IS SET 
: VERIFY RECAL IBRATION 

2$ :GO TO 2$ IF NO ERROR 
:RETURN HERE IF ERROR 


sella 


CZRMMBO RMO5S/3/2 FCTNL TST 1 
TSO SEEK INVALID SECTOR 


MAI 
© 
— 


1606 
1607 


031534 
03 


0 
031720 
031720 


031724 


000405 


032112 
000005 
000000 


042624 
052264 


032112 
042710 


032112 
052402 


032112 
043160 


032112 
043522 
042710 


032112 
043706 


032112 
051024 
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001410 
0 


001416 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


o$: 


14$ 
aor nko. RMCS10 
4 FO 


PC,GETSTS 
PC,CNTCLR 
4$ 


14$ 
PC,GET 
5$ 


14$ 
PC,CLRSTS 
6$ 

PC .@(SP)+ 
14$ 

PC ,PUT 

7$ 

14$ 
PC,TIMOUT 
PC,GET 

8$ 

14$ 

PC, PRIERR 
9$ 
PC,a(SP)+ 
14$ 


PC,SEKSTS 
10$ 


SEQ 0142 
NED BY TSTPRP SUBROUTINE 
ERROR 
T 
TOR = 30., TRACK = 0 


TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 


J 

f 
OMMAND 
BI 

0 

C 


; TERMINATE TABLE 
sSETUP INPUT REGISTER INDEX 


:GO ISSUE CONTROLLER CLEAR 
:GO TO 4$ IF NO ERROR 
;RETURN HERE If ERROR 


:ERROR NUMBER DEFINED BY SUBROUTINE 
;GO TO 14% IF ERROR 


:GO READ REGISTER(S) WITH GET SUBROUTINE 


:GO TO 


5$ IF NO ERROR 


sRETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 14$ IF ERROR 


:GO VERIFY CONTROLLER CLEAR OPERATION 
:GO TO 6$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY CLRSTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 14$ IF ERROR 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 7$ IF NO ERROR 
;RETURN HERE IF ERROR 


;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 14% IF ERROR 


sWAIT FOR GO TO RESET 


:GO READ REGISTER(S). WITH GET SUBROUTINE 
:GO TO 8$ IF NO ER oom 
:RETURN HFRE IF ERR 


;ERROR # DEFINED BY GET SUBROUT I NE 
:GO TO 148 IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 9$ IF NO ERROR 
sRETURN HERE IF ERROR 


sERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 14$ IF ERROR 


:GO VERIFY RESULTS OF SEEK. OPERATION 
:GO TO 10$ IF NO ERROR 


N 11 
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SEEK INVALID SECTOR SEQ 0145 


LT A TNT eS cane 


031770 000240 NOP ;RETURN HERE IF ERROR 
031772 104 EMT :ERROR # DEFINED BY SEKSTS SUBROUTINE 
031774 0047 JSR PC ,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 
031776 000137 032112 JMP 14$ :GO TO 14$*IF ERROR 
1608 032002 10$: 
1609 032002 11$: 
1610 032002 004737 050400 JSR PC, CMPERRSTS *CHECK ANY ERRORS NOT MASKED 
32006 117760 .WORD  IAE!NDTMSK MASK FOR RMER1 
032010 00001 -WORD DPE ;MASK FOR RMER2 
032012 00040 BR 123 :GO to. 12$ IF NO ERROR 
032014 000240 NOP ;RETURN HERE IF ERROR 
032016 104000 EMT ;ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
032020 004736 JSR PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
032022 000137 032112 JMP 14$ :GO TO 14$ IF ERROR 
1611 032026 12$: 
1612 032026 004737 044540 JSR PC,SECERR GO CHECK FOR SECONDARY ERRORS 
032032 000405 BR 13$ :GO TO 13$ IF NO ERROR 
032034 000240 NOP ;RETURN HERE IF ERROR 
032036 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
032040 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
032042 000137 032112 JMP 14$ :GO TO 14$ IF ERROR 
1613 032046 13$: 
1614 032046 005237 001416 INC RMDAO ; INCREMENT SECTOR ADDRESS 
1615 032052 023727 001416 000100 CMP RMDAO , #64. :DONE YET 
1099 032060 101662 BLOS 3$ :NO - TEST NEXT SECTOR 
1618 032062 032737 010000 001442 BIT #FMT16,RMOFO =; WAS TEST DONE FOR 16 BIT MODE YET ? 
1619 032070 001010 : BNE 14$ ~ BR IF YES 
1620 032072 012737 010000 001442 MOV - #FMT16,RMOFO :SET 16 BIT FORMAT MODE 
1621 032100 012737 000040 001416 MOV #32. ,RMDAO SET INVALID SECTOR 32. 
1622 032106 000137 031626 JMP 3$ :NO - TEST NEXT SECTOR 
Mbt 032112 14$: 
1625 CT RRR EERE KK RIK IK KT IK IK IKK IK IKK IK KKK KEK KK KEKE KEK 
3 ;*TEST 51 SEEK INVALID TRACK 
LC RARER KERR ERE ERR KKKKKKKKKKEKKKKKKK 
032112 TST5S1: 
032112 000004 SCOPE sSCOPE CALL 
032114 000240 NOP ;START OF TEST 
032116 012706 001100 MOV #STACK,SP INITIALIZE STACK POINTER 
032122 013700 001276 MOV $BASE ,RO :RO-= UNIBUS ADDRESS 
032126 013701 001464 MOV TSTQUE ,R1 ae = DEVICE BEING TESTED 
as 032132 012737 000051 001226 MOV #51, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
1627 032140 004737 041650 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
032144 054130 -WORD 054130 ; TASK DESCRIPTOR AS FOLLOWS: 
;CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTRGLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘‘SKI‘’ OR ’PIP’' IS SET 
; VERIFY RECALIBRATION 
032146 000404 BR 1$ :GO TO 1$ IF NO ERROR 
032150 000240 NOP 7RETURN HERE IF ERROR 
032152 104000 EMT ERROR # DEFINED BY TSTPRP SUSROUTINE 
12a BeSian 000137 032540 ¥“ JMP 14$ 7G) TO 14% IF ERROR 


— ——_ —<— 


6 eee Se 


- eee ee 


CZAMMBO RM0S/3/2 FCINL TST 7 
SEEK INVALID TRACK 


75" 


032160 
66 


WAAWAG 
nO 
& 


N 
aS 
Nm 


LAA AAW 
MOMUP MOAR N Por 
ACAI AIA A 
COIS Ocha. hice 3 
MOS LOAKLNO 


Reeseus LF 


ae 
WWW 
SARS 


tt 3 OOOO 
oO- 
ND 
Sw 
NN 


ke ed od ed 
i te PoMoMeNnoefr 


004737 
04 


032540 


043522 


042710 


032540 
043706 


032540 
051024 
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001410 MOV #SEEK'GO.RMCTS10 
1446 MOV #0, RMDCO +3 
001416 Vv LSTRK,RMDAO 
INCB RMDAO+1 
091442 MOV #0, RMOFO 
MOV #PUT Bux .R2 
MOVB #RMOF , (R2)+ 
MOVB #RMDC, (RZ) + 
MOVB #RMDA , (R2)+ 
 MOVB #MRACS1, (R2)+ 
vB #200, (R2)+ 
‘ 3s JSR PC,GETSTS 
‘1 o PC. CNTCLR 
, BR. 3$ 
. ' i NOP 
EMT | 
JM / 16§$ 
y aes b 
oi JSR PC,GET 
8R 4$ 
NOP 
EMT . 
. JMP 14% 
4$: 
JSR PC,CLRSTS 
BR 5$ 
NOP , 
EMT. 
JSR PC ,a(SP)+ 
JMP 14$ 
5$: 
JSR PC PUT 
;» oR 6$ 
NOP - ft 
EMT ue 
JMP 14$ 
6$: } } 
JSR PC TIMOUT 
JSR PC GET 
BR 7$ 
NOP it 
EMT ni 
JMP 14$ 
/$: 
JSR PC,PRIERR 
BR 8$ 
NOP 
EMT 
JSR PC ,a(SP)+ 
JMP 14$ 
8$: ins 
' JSR PC,SEKSTS 
. BR 9$ 
NOP 
EMT 


; TABLE 


:GO TO 
;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 14% IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 

;GO TO 8$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # thee Ss BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 148 IF ERROR 


:GO es RESULTS OF SEEK OPERATION 
:GOQ TO 9$ IF NO ERROR 
“RETURN HERE IF ERROR 
ZERRUR 4 DEFINED BY SEKSTS SUBROUTINE 


— COMMAND 

YLINDER = 0 
SLAST TRACK, SECTOR = 0 
; SETUP FIRST INVALID TRACK 
318 BIT FORMAT 
7R2 POINTS TO REGISTER TABLE 
sWRITE gh INDEX 

FOR OUTPUT 


7 TERMINATE TABLE 
:SETUP INPUT TABLE FOR STATUS 


:GO ISSUE Pe nhen CLEAR 
:GO TO 3$ IF NO ERROR 
7 RETURN HERE IF FRROR 

RROR NUMBER DEFINED BY SUBROUTINE 
£50 TO 14$ IF ERROR 


'- 360 ge REGISTER(S) WITH GET SUBROUTINE 
NO ERROR 


:GO TO 4$ IF 

“RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 14$ IF ERROR 


:GO VERIFY tg CLEAR OPERATION 
:GO TO 5$ IF NO ERR 
sRETURN HERE IF ERROR 


;ERROR # DEFINED BY CLRSTS SUBROQUT INE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 14$ IF ERROR 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 6$ IF NO ERROR 

:RETURN HERE IF ERROR 

;ERROR # DEFINED BY PUT SUBROUT INE 


:GO TO 14$ IF ERROR 

sWAIT FOR GO TO RESET 

:GO READ REGISTER(S) WITH GET SUBROUTINE 
NO ERROR 


7$ IF 


LA TT om oe ee ee. ee 
Seep ee ee 


ee Ee 
ee estsssssesbetessissesseeesenamaesiniees ee 


a ————— 


RMO5/3/2 FCINL TST 1 


SEEK INVALID TRACK 


032416 


1660 032450 
1661 Ceseee 


bs 032502 
1666 
1667 032504 


1672 032534 
1673 
1676 03,540 
1675 
1676 


032540 


1677 
1678 032566 


032600 
32602 


0 
1679 032606 


004736 
0001 37 


004737 
117760 


105237 
123727 
101414 


032737 


000137 


012737 


004737 
054130 


032540 


050400 


03254U 
044540 


032540 


001417 
001417 


010000 


010000 
001332 
001417 
032250 


001100 
001276 
001464 
000052 


041650 


033156 


000200 
001442 


C01442 
001416 


001226 


10$: 


11$: 


12$: 


13$: 
14$: 


‘ #FMT16,RMOFO | 
14$ 


C 1 
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PC ,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
14$ :GO TO 14$ IF ERROR 
PC, CMPERRSTS ;CHECK ANY ges NOT MASKED 
| JAE! NDTMSK sMASK FOR RMER1 
DPE ;MASK FOR RMER 
11$ | :GO TO 11$ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
PC ,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
14$ :GO TO 14$ IF ERROR 
PC,SECERR 


:GO CHECK FOR SECONDARY ERRORS 
12$ , :GO TO 12$ IF NO ERROR 

“RETURN HERE IF ERROR 

“ERROR # DEFINED BY SECERR SUBROUTINE 


PC,a@(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
14$ :GO TO 14$ IF ERROR 

RMDAO+1 ; INCREMENT TRACK ADDRESS 
RMDAO+1,4128. ;DONE?? 

13$ ¢NO-DO NEXT TRACK 


cMAS 1 TEST DONE FOR 16 BIT?? 


#FMT16,RMOFO  :SET FORMAT 16 
LSTRK..RMDAO LAST TRACK, SECTOR = 0 
RMDAO+1 >SETUP FIRST INVALID TRACK ADDRESS 


+ Leia: :DO TEST FOR 16 BIT F 


j 
| 


SERRE RARER RRR EERE EERE REE REE ER RRR RER ERR EERE DERE REE EES 


VRTEST 52 


"he in ahh tata aladdin ina nbaleialay 


18152: 


1$: 


SEEK INVALID CYLINDER 


| ;SCOPE CALL 
| sSTART OF TEST 

#STACK,SP 

SBASE ,RO 


s INITIALIZE STACK POINTER 
SE,RO | ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
#52, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP sPREPARE DEVICE FOR TEST 


054130 _ HTASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE 
" SVERIFY CONTROLLER CLEAR OPERATION 
PACK, ACKNOWLEDGE IF VOLUME NOT VAL 1D 
VERIFY PACK ACKNOWLEDGE = 
PRECALIBRATE IF "'SKI'* OR "PIP" IS SET 
| | | VERIFY RECALIBRAT ION 


1$ ! /$GO TO'1$ IF NO ERROR 
:RETURN HERE IF ERROR 
:ERROR # DEFINED BY TSTPRP SUSROUTINE 


13$ ~ 360 TO 13$ IF ERROR 


D 12 
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_-— — -___ 
le 


—— 


SO ee ew nee — eee 


T§2 SEEK INVALID CYLINDER SEO 0164 
1680 032606 012737 000005 001410 MOV #SEEK GO, RMCS10 :SEEK FUNCTION CODE 
1681 032614 012737 001467 001442 MOV #823. .RMDCO iSTART AT FIRST INVALID CYLINDER 
1682 032622 012737 900000 001416 MOV 90 RIA »TRACK = mS SECTOR = 0 
1683 032630 012737 Q0O0000 001442 MOV #0,RMOFO 18 BIT 
1684 032636 012702 001543 MOV #PUTINX,R2 *R2 POINTS TO INDEX TABLE 
1685 032642 112722 000006 MOVB  #RMDA, (R2)+ sWRITE REGISTER TABLE 
1 03264 112722 000034 MOVB #RMDC. (R2)+ 
1687 032652 112722 000032 MOVB ARMOF , (R2)+ 
1 032656 112722 000000 MO ARMCS1,(R2)+ 
1689 032662 112722 000200 MOVB  #290,(R2)+ : TERMINATE TABLE 
1690 032 004737 042624 JSR PC, GETSTS :SETUP FOR STATUS 
1691 032672 es: 
1692 032672 004737 052264 JSR PC, CNTCLR :GO ISSUE CONTROLLER CLEAR 
032676 000404 BR 3$ : :GO TO 3$ IF NO ERROR 
032700 000240 NOP | RETURN HERE IF ERROR 
032702 104000 EMT ! ;ERROR NUMBER DEFINED BY SUBROUTINE 
032704 000137 033156 IMP i -GO TO 13$ IF ERROR 
1693 032710 33: 
1694 032710 004737 042710 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
032714 000404 BR 4$ :GO TO 4$ IF NO ERROR 
032716 000240 NOP “RETURN HERE IF ERROR 
32720 104000 _ EMT :ERROR # DEFINED BY GET SUBROUTINE 
032722 000137 033156 JMP 13$ :GO TO 13$ IF ERROR 
1695 032726 4$: 
1696 032726 004737 052402 JSR PC,CLRSTS :GO VERIFY CONTROLLER CLEAR OPERATLON.—--— 
032732 000405 BR 5$ ) :GO TO 5$ IF NO ERROR 
32734 000240 NOP [RETURN HERE IF ERROR as 
032736 104000 EMT sERROR # DEFINED BY CLRSTS SUBROUTINE 
032740 004736 JSR PC a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
032742 000137 033156 JMP 13$ -GO TO 13% IF ERROR 
1697 032746 S$: 
1698 032746 004737 043160 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
032752 000404 BR 6$ :GO TO 6$ IF NO ERROR 
032754 000240 NOP [RETURN HERE IF ERROR 
032756 104000 EMT 7ERROR # DEFINED BY PUT SUBROUTINE 
032760 000137 033156 JMP 13$ :GO TO 13% IF ERROR 
1699 032764 6$: 
1700 032764 004737 043522 JSR PC, TIMOUT :WAIT FOR GO TO RESET 
1702 032770 004737 042710 JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
032774 000404 BR 7$ =GO TO 7$ IF NO ERROR 
032776 000240 NOP “RETURN HERE IF ERROR 
033000 104000 EMT :ERROR # DEFINED BY GET SUBROUTINE 
033002 000137 033156 JMP 13$ :GO TO 13$ IF ERROR 
1703 033006 7$: 
1704 033006 004737 043706 JSR PC PRIERR :60 CHECK FOR PRIMARY ERRORS 
033012 000405 BR 8$ O TO 8$ IF NO ERROR 
033014 000240 NOP ‘RETURN HERE IF ERROR 
033016 104000 EMT :ERROR # DEFINED BY PRIERR SUBROUTINE 
033020 004736 JSR PC, a(SP)+ =GO BACK FOR MORE ERROR CHECKS 
033022 000137 033156 JMP 13$ :GO TO 13% IF ERROR 
1705 033026 | 8$: : 
1706 033026 004737 051024 JSR PC,SEKSTS -GO VERIFY RESULTS OF SEEK OPERATION. 
33032 000405 BR 9$ :GO TO 9$ IF NO ERROR 
33034 000240 NOP “RETURN HERE IF ERROR 
033036 104000 EMT “ERROR # DEFINED BY SEKSTS SUBROUTINE 
033040 004736 JSR PC, a(SP)+ =GO BACK FOR MORE ERROR CHECKS 


hig 
ti 


e-——__...... 
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033042 000137 033156 JMP 13$ :GO TO 13$ IF ERROR 
1707 033046 9$: | 
1708 033046 004737 050400 JSR PC ,CMPERRSTS 3CHECK ANY ERRORS NOT MASKED 
033052 117760 . WORD [AE !NDTMSK sMASK FOR RMER1 
933054 000010 . WORD DPE 7 MASK FOR RMER2 
033056 000405 BR 1G$ ;GO TO 10$' IF NO ERROR 
033060 000240 NOP “RETURN HERE IF ERROR 
033062 104 EMT sERROR # DEFINED BY CMPERRSTS SUBROUTINE 
033064 004736 JSR PC, a(SP)+ 3;GO BACK FOR MORE ERROR EEK 
033066 033156 JMP 133 :GO TO 13$ IF ERROR 
1709 033072 10$: 
1710 033072 004737 044540 JSR PC,SECERR ;GO CHECK FOR SECONDARY ERRORS 
033076 000405 BR 11$ wit] :GO TO 11$ IF NO ERROR 
033100 000240 NOP. :RETURN HERE IF ERROR 
033102 104000 EMT ;ERROR #4 DEFINED BY SECERR SUBROUTINE 
033104 004736 JSR PC ,a(SP)+ G0 BACK FOR MORE ERROR CHECKS 
033106 000137 033156 JMP 13$ :GO TO 13$ IF ERROR 
1711 033112 11$: a 
1712 033112 005237 001444 iNC RMDCO dy | ; INCREMENT CYLINDER ADDRESS 
1713 033116 023727 001444 002000 CMP RMDCO,#1024. : DONE ?? 
1714 033124 002412 | BLT =: 128 :NO=DO NEXT CYLINDER 
1716 033126 032737 010000 001442 BIT #FMT16,RMOFO 216 BIT FORMAT TESTED??' 
1717 033134 001010 BNE 15$ YES ii 
1718 033136 012737 010000 001442 MOV #FMT16,RMOFO 5 oe SETUP FOR 16 BIT TEST rr 
1719 033144 012737 001467 001444 _ MOV #823. ,RMDCO 7 START AT FIRST INVAL ID CYLINDER 
754 033152 000137 032672 12$: JMP 2$ | 
1722 033156 13$: 
1723 ! r 
1726 : PULL tte ti ricer er tree rere eres 
= *TEST 53 IVC SEEK TEST | 
- j RE AANARER EARNER REARS ORES RARER EER R ER ER ER ER EERE RRA R RE EEE 
033156 1$153: 7 nyt 
033156 000004 SCOPE 4 :SCOPE CALL in 
033160 000240 NOP oe oe sSTART OF TEST 
033162 012706 001100 MOV MSTACK SP INITIALIZE STACK POINTER 
033166 013700 001276 MOV $BASE ,RO . :RO = UNIBUS ADDRESS 
033172 013701 001464 MOV TSTQUE,R1 . geil = DEVICE BEING TESTED’ 
1725 033176 012737 000053 001226 MOV #53. $TESTN :SET TEST NUMBER IN APT MAIL BOX 
1726 033204 004737 052264 JSR PC,CNTCLR :GO ISSUE CONTROLLER CLEAR 
033210 000404 BR 1$ ;GO TO,1$ IF NO ERROR |. 
033212 000240 NOP :RETURN HERE IF ERROR 
033214 104000 EMT | ;ERROR NUMBER DEFINED BY SUBROUTINE 
___ 033216 000137 033516 JMP 8$ | :G0, TO 8$ IF ERROR 
1727 033222 1$: 3 . , | 
1728 0335222 112737 000024 001543 MOVB | #RMMR1,PUTINX - SETUP PUT INDEX TABLE I. 
033230 112737 000200 001544 MOVB ;} #200,PUTINX+1 ;SET TERMINATOR BYTE } 
033236 012737 000001 001434 MOV  #DMD,RMMR10 ¢SET RMMR1 OUTPUT BUFFER: = DMD 
033244 004737 043160 JSR PC .PuT GO WRITE RMMR1' VIA PUT SUBROUTINE) 
033250 000404 BR 2$ ] =GO TO 2$ IF NO ERROR |. | 
033252 000240 NOP “RETURN HERE IF ERROR Gil 
033254 104000 EMT ERROR DEFINED BY PUT arin A 
033256 000137 033516 _ JMP 8$ 7 :GO TO 8% IF ERROR wih 
1729 083565 a: | | 
1730 033262 612737 000005 007410 MOV ASEEK!GO,RMCS10 


| 


i! 
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153 Ive SEEK TEST | SEQ O148 
1731 033270 012737 Q00000 001434 MOV #0,.RMMR10 
1732 033276 012737 GO0000 001444 MOV ' #0,RMDCO ;CYLINDER = 0 
1733 033304 012737 000000 001416 MOV ‘¢ '#O,RMDAOQ  . ~~ -; TRACK = 0, SECTOR = 0 
1734 033312 012702 001543 MOV |, #PUTINX,R2 sWRITE REGISTER INDEX 
1735 033316 112722 600024 MOVB | #RMMRI,(RO)+ | 3 TABLE 
1736 033322 112722 000006 MOVB #RMDA , (R2) + ! Hi 
1737 033326 112722 000034 OVB #RMDC,(R2)+. 4), IW ) 
1738 033332 112722 000000 MOVE  #RMCST (RED +” |) lily 
1739 023336 112722 000200 MOVB | #200, (R2)'* | te : 
1740 033342 00473? 042626 JSR” PL GETSTS ETUP FOR STATUS mite Wh " 
1741 033346 004737 043160 JSR PEL PUT. 10 WRITE REGISTER(S) Ww PUT SUBROUTINE =| 
033352 000404 BR) SB , 360 TO 3$ IF NO ERROR 
033354 000240 NOP '' ')" 4" SRETURN HERE IF ERROR |, 
033356 104000 EMT | sERROR # DEFINED BY PUT, j RUSROUT Ng | | 
033360 000137 033516 JMP 8S ,  #60,.70 8$ IF ERROR 
1742 0335364 3s: pa Oy iy | 
1743 033364 004737 042710 | JSR | PC, GET iy : 0) 0 tan. REGISTER (S) airs GET SUBROUTINE 
033370 000404 BR /4$ Po RROR mit 
033372 000240 NOP | RETURN HERE IF ERROR 1} 
033374 104000 EMT al «| ERROR # DEFINED BY GET SUBROUTINE) 
033376 000137 032516 JMP * hie :GO TO 8s IF ERROR in 
1744 033402 4$: | ) 
1745 032402 004737 043706 : JGR | | Ae IPRIERR :GO CHECK FOR PRIMARY ERRORS real 
033406 000405 BR | S60. TO 5$ IF NO ERROR ial 
033410 000240 P |) ERETURN HERE IF ERROR | | 
033412 104000 T ERROR # DEFINED BY PRIERR suaout ne | i 
033414 004736 JSR —- PC, a(SP)+ >GO BACK FOR'(MORE ERROR CHECKS if 
033416 000137 033516 JMP a$ :GO TO 8S IF ERROR ||| 
1746 033422 032737 010000 001376 5S: BIT, #1VC,RMER21 ;DID INVALID COMMAND ''SET??, A ; 
1747 033430 001012 BNE} 6S dives! i | iV, 
1748 033432 012737 010000 001140 MOV: #1VC,$GDDAT :GOOD DATA FOR TYPEQUT.. i nit i 
1749 033440 013737 001376 001142 MOV RMER?I, SBDDAT | [ga DATA FOR TYPEOUT a ie a 
1750 033446 042737 167777 001142 BIC #°CIVC, $BDDAT ih | | 
1751 033454 104064 EMT 64 Hi eh att! ma 
1752 033456 | 6$: ei nite. 4! 
1753 033456 004737 050400 JSR PC, CMPERRSTS “CHECK ANY ERRORS NOT MASKED | a ft | 
033462 115760 -WORD NDIMSK * |! ©, ;MASK FOR RMER1 mld] | nie 
033464 010010 , -WORD IVC!DPE . :MASK FOR RMER2 ra a te a 
033466 000405 BR 7S :GD. TO 7$'IF NO ERROR», | yy 
033470 000240 NOP | > RETURN HERE IF ERROR | 
033472 104000 EMT ‘ly @ERROR # DEFINED BY CMPERRSTS SUBROUTINE i, 
033474 004736 JSR. PC,a(SP)+ |! i360 D gece! FOR MORE ERROR CHECKS | 
033476 000137 033516 UMP}, ~~ BS 4 0 8$ IF ERROR 4 
1754 033502 7$: | ae a ie | 
1755 033502 004737 044540 . JSR | PC,SECERR | "' ;GO,CHECK FOR SECONDARY ERRORS | ' 
033506 000403 EE le ' G0)/TO 8$ IF NO ERROR | int | 
033510 000240 NOP .| ||) SRETURN HERE) IF ERROR al 
033512 104000 EMT 1;ERROR # DEFINED BY SECERR, SumRoU IN [t, 
033514 004736 JSR /RC.@(SP)+ GO BACK FOR MORE; ERROR | ‘CHECKS i! 7 
1756 033516 8$: , ‘rt yy I 
1757 | | AU 
1758 . sseesovennqendacsadpoagaanreenaiboreneenanensHenvageeggeeereedl 
S*TEST 541) |) ABORT SEEK TEST |) a 3 | || | 
© Treen eelan ed KAneNd Aes aeENdHESHAtaR EEA E REE EE ESL on Eee Ee enten HY tL 
033516 1 $154 ] a | | re 
033516 000004 SCOPE |" ) SCOPE CALL Pap ely 
033520 


000240 PO fk I, START. OF iTEIST 0 ho 
[eae af 


JA 
; ' 
! oe oe 


G 12 
(MMBO RMOS/3/2 FCTNL TST 1 MACRO VO06.00 4-APR=-81 11:43:28 ane 
ABORT SEEK TEST Ny 
033522 012706 001100 MOV, § #STACK,SP INITIALIZE STACK POINTER 
033526 013700 601276 MOV ' $BASE,RO © RO_ = UNIBUS ADDRESS : 
033532 012701 001464 MOV TSTQUE ,R1 -}(R1) = DEVICE BEING TESTED. | 
ae 033536 012737 000054 001226 MOV #54 ,$TESTN SET TEST NUMBER IN |APT MAIL BOX \ 
1760 033544 004737 041650 JSR ss PC, SSTPRP = ss PREPARE DEVICE FOR TEST 1 ik 
933550 054130 WORD - 054130 =| TASK DESCRIPTOR AS FOLLOWS: | 
) — 3CLEAR CONTROLLER & SELECT DEVICE N 
| | ;VERIFY CONTROLLER CLEAR OPERATION |! 
r ;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
';VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF 'SKI'' OR ‘PIP'' IS SET 
| ; VERIFY RECALIBRATION 
033552 000404 BR | a :GO TC 1$ IF NO ERROR, 4) 
033554 000240 NOP 6 RETURN HERE IF ERROR 
033556 104000 =r ; | ;ERROR # DEFINED BY TSTPRP SUBROUTINE! 
033560 000137 034060 JMP o$ 360 TO 9$ IF ERROR 
1761 033564 1$: ! 
1762 033564 012737 040000 001424 MOV = #UNS,RMER10 ;SET UNSAFE ERROR(| 7 
1763 633572 012737 000000 001444 MOV #0 .RMDCO :CYLINDER = 0 ae: 
1764 033600 012737 000000 001416 MOV #0 .,RMDAO :TRACK = 0, SECTOR = 0 
1765 033606 012737 0900005 001410 MOV #SEEK!GO,RMCS10 ;SEEK COMMAND ) 
1766 033614 012702 001543 MOV #PUTINX,R2 :SETUP REGISTER INDEX TABLE i 
1767 033620 112722 000006 MOVB  #RMDA,(R2)+ © [AND OUTPUT BUFFER r 
1768 033624 112722 000034 MOVB = #RMDC, (R2)+ ! - 
1769 033630 112722 000014 MOVB  #RMER1,(R2)+ | 
1770 033634 112722 000000 MOVB  #RMCS1,(R2)+ | 
1771 033640 112722 000200 MOVB #200,(R2)+ | 
1772 033644 004737 042624 JSR PC,GETSTS SETUP: FOR STATUS FETCH 
1773 033650 004737 043160 JSR PC, PUT, _ 3GO WRITE REGISTER(S) WITH | PUT SUBROUT INE 
033654 000404 BR! Dg ' 360 TO 2$ IF NO. ERROR 
033656 000240 NOP | ;1[;'! :RETURN HERE IF ERROR 
033660 104000 EMT )'' SERROR # DEFINED BY PUT SUBROUTINE 
033662 000137 034060 JMP 9$ : :GO TO 9$ IF ERROR 
1774 033666 es: z | 
1775 033666 004737 042710 JSR PC.GET . °°  ;GO READ REGISTER(S) WITH GET SUBROUT INE 
033672 000404 BR 3$ : 360 TO 3$ IF NO ERROR , 7 ae 
033674 000240 NOP ie RETURN HERE If ERROR | Hie 
033676 104000 EMT / TERROR # DEFINED ‘BY GET iene te alt | 
033700 000137 034060 JMP} | 9$ 760 TO 9$ IF ERROR’ | quale 
1776 033704 032737 020000 001346 38: BIT’ ' #PIP,RMDSI, sp ID | DRIVE START SEEK?? | ieee) 
1777 033712 001411 BEQ 4$ | an | ry ee 
1778 033714 013737 001346 001142 MOY RMDS$1., $BDDAT | i Bab’ DATA FOR, TYPEOUT | i ill te 
1779 033722 042737 157777 001142 | w°CPIR, SBDDAT | ca od 
1780 033730 005037 001140 i $GDD _ | $GOOD DATA FOR’ T¥PEOUT | : 
1781 033734 104065 a Nhe. - 
1782 053736 004737 043522 4$: PC, tia WANT); FOR GO TO RESET. ! 
1784 033742 004737 042710 JSR PC, GET, “is, 260 heap siping GET suBROU Ne 
033746 000404 Are '5$ i iy" 360 TO 5$ IF NOE 
033750 000240 | NO tds agelld RETURN HERE IF \& 
033752 104000 | EMT (hth itll “nt R|# DEF I ED ay "GET andl 
033754 000137 034060 imp 9 AO fi 160 19S TF) ERR 1 
1785 033760 | 5$: ah | ati 
1786 033760 004737 043706 jak. ee, PRIERR TF c E CK bran Hh yy 
033764 000405 Sie te ; 6$ IF NOE 
033766 000240 NOP mens i) HiT ty ipa 


1 URN HERE IF ERROR 
| | 1 ii! bist 
¥ weit i Ni : 7 e | (| hie 


i? : i 
Hel Pay 1 | 


nme - 


| aes RMO5/3/2 FCTNL TST 1 


ABORT SEEK TEST 


033770 


| 
| | 


| H1Q | 
MACRO V04.00 4=APR=81 11:43:28 PAGE 13-67) | T 


I 
i! ‘Ni hy \ 





104000 | {ERROR # DEFINED BY PRIERR SUBROUTINE 
033772 004736 JSR at CRSP) pi! 70 BACK FC FOR, MORE gERROR CHECKS 
033774 000137 034060 JMP 0 F' ERROR ny 
1787 034000 6$: , on 
1788 934000 004737 057766 JSR ‘pc, rent i : 60 CHE Ck FOR CHANGE S IN DRIVE STATUS 
034004 000405 BR 7$ | ing TO 7 $i NO ERROR 
034006 000240 NOP ;RETURN HE ERROR | 
034010 104000 EMT Mh: ae R' # DEFINED BY STCDRVSTS SUBROUTINE 
034012 00473 JSR; PC .a(sP)+ | #0 'BACK FOR MORE ERROR) 'CHECKS 
034014 000137 034060 JMP | OS -, | 360 TO 9$ IF ERROR 
1789 034020 7$: 
1790 034020 004737 050400 ‘JS PC, cHpERRSTS "7086a 4 ¥ ERRORS NOT NOT gASKED | ! 
034024 155760 WORD ND TMS NS | ht line. CUE, 
034026 000010 "WORD ly gMASK FOR AMER PT TTT |, tf 
034030 000405 ih (f(y)! 2GO_ TO 8S TF NO ERROR otk au Ue | + 
034032 000240 NOP : RETURN HERE IF ERR li ai 1 ) 
034034 104000 EMT | | | ZERROR # DEFINED BY. amen 9 ROUT I E ariligmell 
034036 00473 JSR, BC,@(SP)+ | / — ;GO BACK FOR MORE |FRROR CHE C Ae ) 
034040 000137 034060 JMR | 9S ‘| 360 To 9$ IF ERROR’ | |), \ TE TEE EL P| , 
1791 €34044 8$: a iu: (iti i (OE | | 
1792 034044 004737 044540 JSR CASEGERR |||, p, ‘HECK FOR SECONDARY ERRDRS | WE | 
034050 000403 BR aN ih 0 9S, if NO lt abd Maesiel | 
034052 000240 NOP x i URN Mi ERROR ee IBS 
034054 104000 EMT | | Feit koe "ERROR 4 DEF I NED ee SUBROUTINE!) , il 
034056 004736 JSR, | jPC,a(SP)+ ')/'') 3GO BACK \FOR MORE] m CHECKS SUT 
1793 034060 98: Ee TAGE it | MUA dy 
1794 } eat ee © ‘| pitt ' ily! ¥ ET TT 
1795 . ssrguesrennesenneonsvesanansacenpengntnannansvsseesses|lnessecs |i | 4 Vantin 
TSTEST 55 SEEK AT OFFSET | ETE ty ay pe 
< mo ee ee ne my iH! wom i 
34060 TST5S: ; te an duttll | pl pil) ! 
034060 00004 | Be OPE H/(L! scope CALL ; | MTL tac ed 
034062 000240/ »' ' 3 START. OF I | GAL 1 tay nian | 
034064 012706 001100 - MOV) stl. aa! INITIALIZE STACK POINTER Lilt ALEVE | 
034070 013700 001276 MOV! . $BASE',RO: . 3RO.= UNIBUS ‘ADDRESS, |, | ,, a cdsy bd, 
034074 013701 001464 _ MOV TSTQUE',R1 he FORD = DEVICE BEING TEST Di ; | | He ty, | 
sais 034100 012737 000055 001226 MOV #55. »$TESTN a TEST NUMBER IN APT MATL BOX, | a a eee Hay 
4 pray | Hi) at 
1797 034106 1$: cee TEE i lh ay | ) (|! 
1798 034106 004737 041650 JSR! \'PC, TSTPRP bitrAne oevice FOR TEST, ie mn | | ANAM 
034712 054130 -WORD 054130 hat ASK | DESCRIPTOR AS b Sele Si: rm i i ti la | nan | 
te ae aa ta AR CONTROLLER | Lp IGE i rt | 
Ps il Ullijcat) @WERIFY CONTROLLER f an | 
i ERA um PACK . ACKNOWLEDGE | F LUE TWA 1D diy iw ETT 
i ane :VERIFY PACK ACKNOWLEDGE Halt ly | ‘| | 
| ;RECALI SKI" OR "PIP" Is ser Las hi ae | 
ab i Gko'to 28 CALIBRATION I mi iN ial 
034114 000404 ! BR 2$ aid $ IF NO ERROR i yd | : ath Wy! || 
034116 000240 Sa vf RETURNS HERE IF ERROR ie | ian / ul 
034120 104000 EM ae : : “ERROR DEFINED BY 1s" RP SUBROUTINE || aT ear |(| ha 
sin 034122 000137 034404 IMP | "10 | 1\13G0' TO 108 1F ERROR.) iy dA i} | 
ye fH, poop [OP yen ar | | yep ad te dy TeAet 
1800 034126 012737 / 000000 001444 Moy = #0, RMD i HOLINDER : a Se sill enti | Dau | 
1801 034134 012737’ 000000 001416 MOV #0,R oo ATRACK CTOR =) (01/! fs i a PU ay 
1802 084143 019737 000015 OOla10 MOV ROFF SET G0,AMCS16 LOAD OFFSET. COMMAND IN olf | | iti) | | 
1803 034150 012702 00154 , | MOV #PUTI x! :R2 POINTS 10 REGISTER TABLE | i ; | 
1804 034154 112722 000034 i MOVE) MAE RR) 1). SWRITE REGISTER INDEX TABLE Hat rey iN 4 
' ree | | ota . Hy | ht 


| 
ay he CUE city tt | 


Heid | ss 
io ed Pie shhh bib ta ' | nh 


eee ee eee = 


Sean 


(i mi I 


nh ] Mee | IG | 


peers. 1 
ZRMMBG RMOS/3/2 FCTNL TST 1 MACR ~aPRig1 11 is 
'- ms /3/2 FCT, CRO vO6l00 4-apRda? 11:43:28 PAGE! 1 Mee 
i 7 ' \] 
1805 034160 112722 000006 wove | wpiibla. cRava, «1 
034164 112722 600000 wove | ateeay Bye (4 
lene Seeide nies 909200 MOVB' || #200,(R2)+, | :WRI'TE) TERMINATOR 
532200 0004604 ba : 1a” Gobi ee iW 460 “iter REGISTER(S) wiTH yt SUBROUT INE 
034202 240 NOP Py, TTL pre Ah IF NO ERROR aus 
034204 164000 mr) iPad TERROR a BEE INED TON or 
034206 000137 034404 ime 108) | 60, TO Tos TF ERA, SHRROUT INE 
B10 934516 004737 Oa3S23 ss: Usk) PC AGETSTS | ESBTUPLFOR STATUS FETCH! | Nhl 
1811 034222 pi Par Bic, sD | ¢ = eoiliby Al IT FO OFFSET ITP COMPLE TE alt 
1812 034222. 012737 000005 001410 mov |. Ws | STUER ne 
1813 030980" 913787 890005 991523 mov, | HSEEKSCO-AMESIO LOAD SEEK COMMN ‘i 
1814 034236 110737 000200 001544 Ve ez0osecrintet QA Et 
034244 004737 065160 JSR), PC.PU GO WRITE REGISTER(S)) MWtH PUT’ SUBROUT INE! | | 
034252 000240 NOP | ‘i Wi gl :G0 TO 58 JF tr ERR i 
034254 104600 et ar TERROR # Meet, SUBROUT INE 
cto sg. MP Hs) EGO TO 108° IF ERROR 
1817 7 he Etta t | 
1818 ;WAIT FOR COMMAND 10 COMPLETE |) Ss. 
1810 034262 004737 043522 JSR TI MOUT: (760. 10 rIMOUT SUBROUT INE 
|| 
820 034266 004737 042710 JSR + sr) :GO READ REGISTER(S) WITH GET, SUBROUTINE 
034274 000240 NOP | 460,70 6S TF NO ERROR 
034276 104000 EMT af" FER # BF eg Ce sno 
ma ca JMP 10$ S| GO -TO'.10$ IF ERROR | !, rr T 
‘ PER Ce i . Ty 
822 032310 vo0a0s rea Sathana bb db Soa ~ 24 ge PRIMARY ERRORS Hifi Hill Ae | 
034312 006240 NOP ths a | 760 To M$ _IF NO ERROR | 
034314 104000 EMT fc goa. eee rie 
034316 004736 JSR -PC,aCSPi* | 360 BACK unos tomon ce 
1a2% bee tse 000137 034404 oe JMP | 108 7 | 4 a i} #60 TO 10$ IF ERROR | | | 
1824 Os ace ot i” BC. SERSTS "11, GO, VERIFY RESULTS OF SEEK OPERATION 
034332 000240 | NOP 4 3 be I 4 antes 
Reethe ba ree Oa | PERROR # DEFINED BY SEKSTS amt Te 
PC,@(SP)+ — +GO0 BACK FOR MORE ERROR CHECK Seale 
1825 Oeeaee 0001 37 034404 8$- JMP 10$ | -60 TO Mie IF ERR at} mn ae | | | 
1826 034344 004737 050400 : : | | 
034350 116740 JSR Ec CPERRSTE : CHECK ANY ERRORS NOT MASKED | 
034352 000010 WORD DPE le “MASK FOR RM Hoe WN 
034354 000405 ge X FOR RAER2 a (a 
034356 000240 NOP Pf ay :GO TO 9$ IF NO ERROR 
08439 104000 i | \ |) GRETURN HERE IF ERROR 
034362 004736 JSR PC,a(SR) +. " G0 BACK. SF ga woes seo 
aor Hate. Pe (OSHA ee a ery 60 TO 10$ IF ERROR 
ee Tire ke **P JSR PC SECERR | ':GO' CHECK FOR SECONDARY ERRORS 
Stezon Vaeaee NOP; th | SRETURN HERE. IP ERROR” | 
: 04000 EMT i [4,, 7ERROR 4 DEF INEP BY SECERA SUBROUTINE 


CZRMMBO 8M05/3/2 FCTNL 
TS5 SEEK AT OFFSET 


1829 
1830 
1831 


1858 


034402 


034404 


034404 


054634 


004736 


0001 37 
012703 


004737 
004737 


104000 





1ST i 


001100 


000056 
052264 


035032 
000037 


042624 
043160 


035022 
043522 


042710 


035022 
043706 


035022 


103274 
177777 
000020 
000020 


001226 


001442 
001444 
001416 
001410 


10$: 


JSR 


Ke J 
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aH: Baca FOR MORE | ERROR CHECKS 


i | it i 


. rageenueesentensantsevecnyeadnennennecnnennecabeeasetenesseey 


= *TEST 56 


e titel ttttt ttt ait teehee Pe LP PPE EELS EE LEAL... 


15156: 


tae... | 


—————————— 


2$: 


3$: 


é6$: 
7$: 


score 


LOOK'AHEAD TEST 


mann | 


| :SCOPE CALL 
tity MV | ;START OF TEST \| 
#STACK .3P | | INITIALIZE STACK POINTER 
||| ¢RO_= UNIBUS ADDRESS 
TSYQue yi \(}(R1) = DEVICE BEING TESTED 
#56 i, i!" "MS SET TEST NUMBER IN APT MAIL BOx 
aa PC. CNTCLR :G0 ISSU CONTROLLER CLEAR 
ily GO TO 1 RROR | 
VI) RETURN “Hene iF ERROR 
= bi DEFINED BY SUBROUTINE 
16$ i NEO 70 16$ IF ERROR 
31. RB ;R3_= SAMPLE COUNT FOR 18 BIT MODE 


‘ t 


#0,RMOFO 1 GSTART WITH 18 BIT MODE 
#O,RMDCO i)! |) SCYLINDER = 0 

RM | SEARCH TRACK = 0, SECTOR + 0 
HOA sib ;RECALIBRATE COMMAND 
#PUTINX,R2 | Phil 4 
#RMDA,(R2)+ pee ty i 
#RMDCL(R2)+ i 
#RMOF © (R2)+ 3 i 
WRMCST (RZ) 4 |) i 


#200, (R2)+ 


PC,GETSTS 


PC,PUT |) sG0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
. ae ;GO TO 3$ IF NO ERROR 

Taaray “RETURN HERE IF ERROR 
ERROR # DEFINED D BY PUT SUBROUT INE | 


15$ -GO TO 15$ IF ERR | 
/ PC,TIMOUT 1; WAIT FOR COMPLETION Mh 

* tee ee {| 

PC 3GET Bat : 60 EAD REGISTER(S) WITH! GET SUBROUTINE 

4$ ) O 4$ IF NO ERROR | 
| RETURN HERE IF ERROR 

TERROR # DEFINED BY GET SUBROUTINE it 

15$ 7 G0 TO 15$ IF ERROR: | taht 

PC ,PRIERR :GO CHECK FOR PRIMARY ERRORS | 

5s$. Ct GO TO 5S IF NO ERROR 

Daa “RETURN HERE IF ERROR 
Sats :ERROR # DEFINED BY PRIERR SUBROUTINE 

PC,a(SP)+ | -GO BACK FOR MORE ERROR CHECKS | 

15$ _. 560 TO 15$ IF ERROR J 

wBUFPER LRG :R4 = STORAGE ADDRESS © ‘| 

t=1 7R5 = GROSS TIMER 


RMLA(RO):, (R4) STORE RMLA SAMPLE 
a fe ne :GET ANOTHER LOOK | 


SEQ O15< 


ee ee 


TE Eee -- --— 
. 


CZRAMBO RMO5/3/2 FCTNL TST 1 
LOOK AHEAD TEST 


156 


1 
1877 
yok. 


1905 
1906 
1907 


034676 
Sate 
C3419 


034716 
034724 


034726 


035014 
035020 
035022 


035032 


035032 


020274 


001373 
104352 
0001 37 


012702 


001404 


012702 


005303 
001360 


032737 
001006 
012737 
012703 
000647 


012637 
012657 


000004 
060240 


000002 


000020 


035032 


005500 
000036 
105274 
010000 


003700 
060040 


000100 


010000 


010000 
000041 


000006 
000004 
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001442 


001442 
001442 


8$: 


9$: 


13$: 


14$: 


15$: 


16$: 


Ss HET EA SEH RRO RRNA EEE OPER EAR RUHR ER RAO RARER ARERR EERE SERRE REESE i 


“*TEST 57 


° SRR AERA ERRATA ERATE RARE ARERR RARER EKER ERD 


TST57: 


' ‘ 
oy 
i 


SCOPE 
NOP 


| 


, K 12 
43:28 PAGE 13-70 


‘| 
' 


CMP R2, (R4) iARE SAMPLES SAME ?? 
BEQ 8s 
DEC Baa , ‘ TIMEQUT??, 
BNE 7$ ) “NO = TRY AGAIN 
BR 10$ \ “PROGRAM TIMEOUT 
ADD #2,R4 sADVANCE STORAGE ADDRESS 
DEC R3 f ‘ALL SAMPLES TAKEN?? 
BEQ 11$ ,\ YES! 
CMP RMLA(RO) .R2 ;WAIT |FOR CHANGE 
BNE 7$ : YE 
DEC R5 iT ‘ TIMEQUT?? 
BNE 9$ ay 1, NO 
EMT 352 \! 
JMP 16$ 
BIT SAMPLE RARAME TERS 
MOV #3500,R2 |) :R2 = MAXIMUM SAMPLE 
MOV #30. | R3 -- $R3. = NUMBER OF COMPARES 
MOV WBUFFER.R4. | RG = BUFFER ADDRESS 
BIT HEMT 16) /RMOF 0. :IS SAMPLE FOR 18 BIT MODE ? 
BEQ , Tess, My | ;BR: IF YES 
BIT SAMPLE. PARAMETERS | 
MOV #3700,R2) :R2 = MAXIMUM SAMPLE 
MOV #32.,.R3 '' |. 3R3 = NUMBER OF COMPARES 
MOV (R4)+,R5 °°  =GET A SAMPLE AND INCREMENT 
ADD #100,R ' FOR EXPECTED VALUE OF NEXT aT 
CMP R2,R5\' :SHOULD NEXT BE 0 ? ' 
BHIS = 138 //.1)) :NO!! 
CLR _ ree :YES = CHANGE EXPECTED 
CMP R5,(R4) 71S NEXT SAMPLE CORRECT??? 
BEQ 14$ | “YES! ! 
MOV R5,$GDDAT TEXPECTED VALUE 
MOV (R4) , $BDDAT ;RECEIVED VALUE 
EMT 353) x 
yl aepales < tous 4b | pALL SAMPLES CHECKED?? 
BNE 12$ yh HFN = ~ TEST NEXT SAMPLE 
aed 

BIT HEMT 16, RMOFO LTe'sT ‘DONE FOR 16 BIT MODE ? 
BNE,  15$3,,.\; “BR IF YES 
MOV EMT 16 RMOFO :SET 16 BIT MODE AND 
MOV #33. ,R3 —rSET SAMPLE COUNT. 
BR. © 2$ TEST AGAIN 

\ I\) Wy . 
MOV alles POP STACK INTO ERRVEC +2 
MOV (SP)+,ERRVEC ;:POP STACK INTO ERRVEC 


, { 
\y 4 a j d} j 
at I PAY 4 


SEARCH! 'ON CYLINDER 


;SCOPE CALL 
‘fetary OF TEST 
i 


lig j i 
‘ A ' muy: 


\ 


SEQ 0153 


79710 035060 
035064 


035264 
1932 035270 


¢7RMMBO probed FCTNL TST 1 
15? CH ON CYL] 


012737 


004737 
054130 


000404 
000240 
104000 
000137 
012703 


NDER 


001100 MOV 
001276 MOV 
001464 MOV 
000057 001226 MOV 
041650 JSR 
. WORD 
| 
|| 
| 
BR 
NOP 
EMT 
635510 1 JMP . 
000035 MOV 
OCOO000 001444 MOV 
OO0000 001416 MOV 
OOO00CO 001442 MOV 
0000 001410 2$: MOV 
001543 MOV 
000006 MOVB 
000034 MOVB 
000032 MO 
000000 MOVB 
000200 MOVB 
042624 JSR. 
043160 JSR 
BR 
P 
MT 
035510 JMP F 
043522 3$: JSR 
042710 JSR 
BR 
NOP | 
EMT 
035510 JMP . 
4$: ! 
043706 hs 
NOP | ' 
EMT! || 
i JSR 
035510 5 | | JMP 
5! 
051024 JSR 
BR' 
| NOP 
i EMT 
JSR 
M 


035510 ly 
000031 001410 6$: | nc | 
' | : : 


054130 


{i 
fl 


“aft 
avi 


iy 


' 
’ 1 
| | 
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Mi ‘hin ay 


estdcn: SP LIND TIALIZE STACK POINTER 
$BASE , RO +RO = UNIBUS ADDRESS 
TSTQUE,R1 «. 3(R1) = DEVICE BEING TESTED 
#57, STESTN "hh aeg SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP PREPARE DEVICE FOR TEST 
: TASK DESCRIPTOR AS FOLLOWS: 


or |) SOLEAR CONTROLLER & SELECT DEVICE | 

mM, Way RIFY CONTROLLER CLEAR OPERATION 

aie pack ACKNOWLEDGE IF “VOLUME NOT VAL ID 
| VERIFY PACK ACKNOWLEDGE 

, \\ SRECALIBRATE IF ‘'SKI’' OR ‘PIP’’ Js SET 

Ay / "| sVERIFY RECALIBRATION 

1 (UM ;GO 2 1$ IF NO ERROR | 

| WT :RETURN HERE IF ERROR 

I". PERROR |#_DEFINED BY TSTPRP SUBROUT INE 


PC, SEKSTS GO VERIFY RESULTS OF seek! ObERATION 
6$ NH) :GO TO 6$ IF NO ERROR fa 
yell  SRETURN HERE IF ERROR | 
Uh |. ERROR # DEFINED BY SEKSTS SUBROUTINE 
PC ,a(SP)+ \ : 60 BACK FIOR MORE o§RROR CHE CKS 


0138 I 
“ ASEARCH:Go,RoNCS 10 "TORE SEA SEARCH COMMAND 


a he 
\} 


! 


;GO T0'13$ IF ERROR | 
#29. ,R3 *R3 = MAXIMUM SECTOR ADDRESS 
#0,RMDCO ; CYLINDER = 0 _ 
#0,RMDAO jit ; TRACK = 0, SECTOR = 0 ptt! i 
#0,RMOFO ||) 318 BIT FORMAT | 
#SEEK!GO,RMCS10 :SEEK COMMAND F 
#PUTINXR2' SETUP REGISTER INDEX TABLE! | 
are. (RD) -FOR SEEK TO CYLINDER 0, t 4 
he + if 
ARMOF , (R2) + Neds | iY 
#RMCS1, (R2)+ ul | if i 
| #200, (R24 hh | 
PC,GETSTS | lil: «SETUP FOR STATUS FETCH | ae 
PC {PUT * 360 WRITE aril WITH! PUT SUBROUTINE ‘he | 
\ 5$ 7 © 369,10 RROR | | 
! HEN NERE NP ERROR | 
: _ ., SERROR: # DEFINED BY PUT SUBROUTINE 
13$. | ali :GO TO 13$ IF ERROR ee 
ee TIMOUT. Pann ott hdy 
wii 
PC ‘GET Hie PE ico READ REGISTER(S) WITH GET ‘SUBROUTINE 
4$ Re 4$ IF NO ERROR | : 
| HERE IF ERROR ~ iI {I : 
iy “ERROR a DEFINED D BY GET seroviE 
138 | wily G0 10) 13$ IF ER RROR ii 
{ , Sa (8 | ti 
PC -PRIERR y) |) ;GO CHECK FOR PRIMARY ERRORS | | wl 
5$ | ts 360. TO S$ IF INO ERROR r 
(it | :RETURN HERE IF ERROR i | 
it SERROR # DEFINED BY PRIERR SUBROUTINE))) |, 
PC, atsrn GO’ BACK FOR MORE ERROR pecs “i 
13$ - 60 TO 13$)\1F ERROR | 


iyi a! 
aa 


‘id 
ne (| 


; 


i 
| 
| 

14 
o 


-———— 
eee eee eee eenessonenneniereranees — ee ee - - 


mM 7 , 
CZRMMBO RMOS/3/2 FCTNL TST 1 — MACRO VO4.00 GLAPR=81 11:43:28 pace: 1$e72 


SEARCH ON CYLINDER ri | | | SEQ 0155 


Se eee seeh-seesetesetnane _——— — + 


1933 035276 004737 043160 JSR PC PUT | ‘60 WRI TE REGISTER(S) WITH PUT SUBROUTINE Phan 
035362 000404 BR’), ABH hi eh 0 TO 7$ IF NO ERROR 
035304 000240 oP f “RETURN HERE IF ERROR 
035306 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
035310 000137 035510 J :GO TO 13$ IF ERROR ‘ 
1934 035314 7$: , 4s a 
1939 035314 004737 043522 JSR PC, rH :WAIT |FOR SEARCH TO COMPLETE 
1937 035320 004737 042710 Jsa '' pe, aly :G0 READ REGISTER(S) WITH GET SUBROUTINE 
035324 000404 BR | 8$ :GO TO 8$ IF NO ERROR 
035326 000240 NOP ' Ty ts ¢RETURN HERE IF ERROR 
035330 104000 EMT) ' Wiad os Let 6016 # DEFINED BY GET SUBROUTINE 
035332 000137 035510 JMP 13$)./1)' TO 13$ IF ERROR 
1938 035336 8$: (| s 
1939 035336 004737 043706 JSR i PRIERR) | : 60) CHECK FOR PRIMARY ERRORS 
035342 000405 BR itt f, NO ERROR | 
035344 000240 NOP ea ee AD SRE TURN ERROR 
035346 104000 EMT | ' ‘| ZERROR a" HA BY PRIERR SUBROUTINE 
035350 004736 er. gee PC ga(SPD+ BACK FOR MORE ERROR CHECKS 
635352 000137 035510 JMP | 13$ :60 TO 138 TF ERROR | 
1940 035356 9$: I 
1941 035356 004737 056422 JSR PC .SCHSTS i :G0\ VERIFY SEARCH OPERATION 
035362 000405 BR, 108 ils 3G0_TO 108 IF NO NO ERR RROR 
000240 NOP i ) | RETURN HERE 1F ERROR 
035366 104000 EMT ERROR , DEFINED: BY SCHSTS SUBROUT INE 
035370 004736 JSR, PL, a( SP) +) :GO BACK FOR MORE ERROR CHECKS © 
035372 000137 035510 JMP 1138 | ith :60 70. 13$ IF. ERROR : 
1942 035376 10$: < fH 
1943 035376 004737 050400 JSR PC, CMPERRSTS : CHECK ANY ERRORS NOT MASKED | 
035402 115760 . WORD NDTMSK,, | / *MASK FOR RMER1 
035404 000010 .WORD DPE “)!' :MASK FOR RMER2 
35406 000405 , BR 118 G0. TO 11$ IF NO ERROR 
035410 000240 NOP  }RETURN HERE IF ERROR | 
035412 104000 EMT | ‘TERROR # DEFINED BY CMPERRSTS SUBROUT INE He 
035414 04736 (| JSR |’ | -PC acsp)¢ -:GO BACK FOR MORE ERROR CHE CKS | ann NM | 
035416 000137 035510 IMP 13§ iy $60 TO 13% IF ERROR | | 
1944 035422 11$: 7 | | 
1945 035422 004737 044540 SR eS PC.SECERR- :GO CHECK FOR SECONDARY ERRORS T 
035426 000405 BR  12$ | :GO TO 12$ IF NO ERROR | ity 
035430 000240 NOP " : RETURN HERE IF ERROR | 
035432 104000 EM :ERROR # DEFINED BY SECERR SUBROUTINE | 
5434 00473 JSR :GO BACK FOR MORE ERROR CHECKS myo dd 
0334.56 000137 035510 / MP G0 TO 13$ IF ERROR | | 
035442 005237 001416 INC : INCREMENT SECTOR ADDRESS Wy | ) 
035446 020337 001416 CMP : DONE ALL SECTORS?? | | Hiya) 
035452 103306 BHIS NO! | yy 4 
035454 032737 010000 001442 BIT #FMT16,RMOFO IS 16 1] FORMAT DONE?? | 
035462 001012 BNE 1 “BR IF | 
53 035464 012737 010000 001442 MOV HEMT 16 RMOF 0 7S? 16. 7 FORMAT | ! i 
1954 035472 012703 000037 MOV #31. ,R3 R3 = MAXIMUM SECTOR ADDRESS a LU 
1955 035476 012737 000000 001416 MOV #0..RMDAO : :START AT TRACK = 0, SECTOR = 0 
1956 ;GO TEST AGAIN 


035504 000137 035126 IMP St 
1957 035510 138: l 


1959 PLR EEE EEE EERE EEE RR ERR REET EERE | 


gE 
ee eee 
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SEARCH OFF CYLINDER 
SEQ 0156 


:sTEST 60 SEARCH OFF CYLINDER 
035510 S160: eennkane ARR RRR SESSRSESESERE SSE SESE SSE SSS SSCL. F 
035510 000004 ! 
Ossie oe 9908 NP SIRE Stes 
ee eee my SauSESaS” ng! Ghee come NTE 
013701 001464 i MOV TSTQUE R1 ‘ zR0 = ps 
| DEVICE BEING TEST 
| 1960 ream Chara CR: 001226 MOV #60, STESIN ::SET TEST NUMBER IN APT MAIL BOX 
5536 004737 041650 JSR PC.TSTPRP 
| | PS ;PREPARE DEVICE FOR 1 
| 053542 054150 WORD | 054130. TASK DESCRIPTOR ne Lor ous: 
|  GCLEAR CONTROLLER & SELECT DEVICE ||, , 
a as 
Ny 
ic REM aA APNEP ES ls se 
1 | Tat ve OR pe ‘| 
035544 000404 a BR 1$: (jy 1 EVERIFY RECALIBRAT ION ee litte 
035546 000240 i cuit $G0-TO 1S°TF NO ERROR i i 
938889 000137 EMT pe yee SRETURN HERE IF ERROR S dbbuine! | HI 
| ack Seeeee nn cil tact 1$: hl 4 :60 T0'14$ Hi ERROR | ly secielin 
| 6 012737 000000 001416 ‘ ' | 
1964 035564 012737 0 : a i fol 
1965 035572 012704 000035 _—— + le Re \ggaaar WITH 18, BIT MO él, " 
1966 035576 012703 000632 “nit as (i), fae Sa ee tue RESS 
eh Saeee BISA Be | a ia 
1969 035614 010537 oola4, | oy #SEh 760. JRACE1O | SLOAD SEEK GORMAN | 
1970 035620 012702 001543 ey AE) |). ZLOAD CYLINDER (AD DRESS L) 
1971 035624 112722 000032 MOVB wPUTINA ER? | :R2 POINTS TO REGISTER T F 
1972 035630 112722 000034 move |. RANDELERO}® | HSEZUE REGISTER, INDEX’ TABLE’) 
ie Husess iatas Hanes ‘note | 'Bipatys FOR SEER CMR) I 
1975 035644 119799 00200 | move i 7200, phe i , 
ges baeee Gree Eee nes ee ee | 
035660 000604 | er ae ‘Pur Bi WRITE REGISTER ( és) warm but susnout he 
035662 00024 NT i), $907 RROR 
035666 000137 mete. eee o RecrneT a Fae Put! SUBROU IN 
1978 035672 — ss; | | 148 i :60 TO 148 If ERROR WT T 
| . Bees | 
38 035672 004737 043522 ysR oh, Pe, THM T . WAIT FOR SEEK TO COMPLETE i Ti 
035676 00¢ | 1), 
035703 eax, ertO isk am :60 OO eS TF AD EAaOR WITH GET SUBROUTINE at 
Bs Ute Bl Be LE cwronne || | 
? | I i | - al NE | IAL 
i Py 
O32 760 800405 anaes | "| gene - 360 CHE Ok faty is ERRORS a 
000240 , ot- 5 / 
035724 104000 Pheer g(t ties RETURN. a DEF 
035756 004736 Te TERROR # FINED. By “PRIERR st te ih 
035730 000137 036274 | - 1 ip¢! a(SP)+ Poe ae RROR CHE C im 
(apd if 


Lin} ORME A: : i 10 148 IF "ERROR 


ALE 
; 


aoe =} oo —_- om — —- 


oie 







“$ 
> B13 
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r60 SEARCH OFF CYLINDER ; : SEQ 0157 
? 
1984 035734 " S$: : 
1985 035734 004737 051024 JSR PC.SEKSTS 3 : 60 VERIFY RESULTS OF SEEK OPERATION 
035740 000405 . 55 6$ ; 3G0 TO 6$ IF NO ERROR 
035742 000240 : NOP + “RETURN HERE IF ERROR 
035744 104000 EMT : ZERROR # DEFINED BY SEKSTS SUBROUTINE 
035746 004736 | JSR PC,a(SP)+ ¢ ;GO BACK FOR MORE ERROR CHECKS 
035750 000137 036214 JMP 14$ 7 ;GO TO 14$ IF ERROR 
1986 035754 : 6$: oa 
1987 035754 010337 001444 /. MOV R3,RMDCO 5, LOAD CYLINDER ADDRESS 
1988 035760 012737 000031 001410 | MOV #SEARCH! Go,AMcs10 LOAD SEARCH COMMAND 
1989 035766. 004737 043160 JSR PC PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
035772 0004 BR 7$ : 360 TO 7$ IF NO ERROR 
035774 000240 NOP f ;RETURN HERE IF ERROR 
035776 104000 — EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
036000 000137 036214 JMP 14$ ;GO TO 14$ IF ERROR 
1990!036004 7$: : 
1991 036004. 004737 043522 JSR PC, TIMOUT ;WAIT FOR SEARCH TO COMPLETE 
1968 036010 004737 042710 JSR PC,GET. _ ;GO READ REGISTER(S) WITH GET SUBROUTINE 
636014 | 000404 is BR 8S *, ;GO TO 8$ IF NO ERROR 
036016 000240 NOP ¢ ;RETURN HERE IF ERROR 
19 36020 104000 EMT : ;ERROR # DEFINED BY GET SUBROUTINE 
036022 137 036214 JMP 14s = :G0 TO 14$ IF ERROR 
1994 036026 8$: | 4 
1995 036026 ||004737 043706 JSR PC.PRIERR %:GO CHECK FOR PRIMARY ERRORS 
~ 036032 405° | BR oS . ™;GO TO 9$ IF NO ERROR 
- 036034 006240 lif, NOP Z;RETURN HERE IF ERROR 
‘| 036036 104000 vel EMT ERROR # DEFINED BY PRIERR SUBROUTINE 
| 036040 004736 JSR | - PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
036042, 000137 036214 i) SMP 14$ GO TO 148 IF ERROR 
1996 036046 Ban 9S: | 
1997 036046. 004737 056422 al JSR PC, SCHSTS swGO VERIFY SEARCH OPERATION 
036052 000405 NYT BR 10$ %S0 TO 10$ IF NO ERROR 
036054 000240 NOP RETURN HERE IF ERROR 
036056 1040 i EMT ERROR # DEFINED BY SCHSTS SUBROUTINE 
036060 004736 H | JSR PC, a(SP)+ $GO BACK FOR MORE ERROR CHECKS 
036062 000137 036214 | _ JMP 14$ >GO TO 14$ IF ERROR 
1998 036066 | ' 706s. | 4 
1999 036066 737 050400 | JSR PC, CMPERRSTS = =CHECK ANY ERRORS NOT MASKED 
036072 115760 : .WORD NDTMSK SK FOR RMER1 
036074 000010 | .WORD DPE =MASK FOR RMER2 
0560 6 000405 BR 11$ *S0 TO 11$ IF NO ERROR 
03 000240 NOP @eETURN HERE IF ERROR 
0361102 10400 EMT yi -RROR # DEFINED BY CMPERRSTS SUBROUTINE 
036104 004736 ISR PC ,a(SP)+ #50 BACK FOR MORE ERROR CHECKS 
036106 000137 036214 JMP 14$ #0 TO 14$ IF "ERROR 
2000 036112 11$: ) n 
2001 036112 004737 044540 JISR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
1036116 00040 | BR 12$ :GO0 TO 12% IF NO ERROR 
036120 00024 NOP ;RETURN HERE IF ERROR 
036122 104 EMT :ERROR # DEFINED BY SECERR SUBROUTINE 
036124 004736 ‘a JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
036126 000137 036214 fi JMP i4$ :GO TO 14$ IF ERROR 
2002 036132 128: 
2003 036132 005303 DEC R3 ;DECREMENT SEARCH CYLINDER 
2004 036134 005205 q INC R5 INCREMENT SEEK CYLINDER 
2005 036136 005237 001416 INC RMDAO ; INCREMENT SECTOR ADDRESS 


EE eT -<tpin-thernstenGSene” 


T60 


CZ7RMMBO RMO5/3/2 FCTNL TST 1 


S007 00 paeieg 
2008 


2017 036214 
2018 
2019 


2020 
2021 036242 
036246 


036250 
036252 
036254 


036256 
2022 036262 


020637 
103020 


012737 


004737 
054130 


SEARCH OFF CYLINDER 


001416 


010000 


035606 


061100 
001276 
001464 
000061 


047650 


036614 © 


000000 


00 
042624 
052264 


036614 
043160 


001442 
001442 


001416 
14$: 


. i 
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R4 ,RMDAO 
13$ 


A#FMT16,RMOFO 
14$ 
#FMT16,RMOFO 
#3 4 


sDONE ALL SECTORS?? 


;NO - DO NEXT SECTOR 
; DONE 16 ow MODE YET ? 


IF YE 
:SET 16 canta F ORMAT 
:R MAXIMUM SECTOR ADDRESS 
SEARCH CYLINDER 
;R SEEK CYLINDER 
:START AT TRACK = 0, SECTOR = 0 
:GO TEST AGAIN 


nun 


SERRE RR EEE EERE RRR EE 


SEARCH INVALID SECTOR 


= *TEST\ 61 


° titted tte ee eee eee eee RP CPR PPS PC EASE SSSOCSSSLCCLC.. SY 


| ‘TST61: 


001442 


2$: 


3$: 


 MSTACK. SP 


TSTQUE,R1 . 
#61, $TESTN 


PC, TSTPRP 
054130 


ar GETSTS 
PC,CNTCLR 
3$ 


12$ 
PC PUT 
4$ 


7SCOPE CALL 
sSTART OF TEST 
: INITIALIZE STACK POINTER 
;RO = UNIBUS ADDRESS 
*(R1) = DEVICE BEING TESTED 
7: SET TEST NUMBER IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 
: TASK DESCRIPTOR AS FOLLOWS: 
:CLEAR CONTROLLER & SELECT DEVICE. 


| :VERIFY CONTROLLER CLEAR OPERATION 


$ ; KNOWL EDGE 
>RECALIBRATE IF "'SKI'’ GR ‘PIP*' 
7 VERIFY RECALIBRATION 

:GO TO 1$ IF NO ERROR 

“RETURN HERE IF ERROR 

;ERROR # DEFINED BY TSTPRP SUBROUT INE 


IS SET 


$60 TO'12$ IF ERROR 


;SET 18 BIT FORMAT | 
;CYLINDER = 0 
:FIRST INVALID SECTOR = 30. 

;SEARCH COMMAND 


$10 E 
sWRITE REGISTER TABLE FOR 
; COMMAND 


. } 


; TERMINATE TABLE 
: SETUP STATUS FETCH 


: G0 1SSUE CONTROLLER CLEAR 
O $$ IF NO ERROR 

‘ae reae HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

“GO TO 12$ IF ERROR 


2GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 4$ IF NO ERROR 


SEQ 075 


in es FCTNL 


CH 


0 
2048 036504 
2049 036504 


2050 036530 
2051 Onde 


2059 036574 
2060 036602 


INVAL ID 


005237 
023727 
101412 


032737 
001010 
012737 
012737 


TST 1 
SECTOR 


036614 
043522 
042710 


036614 
043706 


056614 


056422 


036614 
057766 


056614 


D1 
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050400. 


03661- 


044540 


036614 


001416 
001416 


010000 


010000. 


000040 


000100 


43: 


| 6$: 


8$: 


o$: 


10$: 


001442 | 


007442 
001416 


a 
a 
PC, TIMOUT 
PC GET 
a. 


128 
PC,PRIERR 
4 


PC ,a@(SP)+ 
12$ i? 


PC, SCHSTS 
7$ 


| 


PC,a(SP)+ | 
12$ 


PC,STCDRVSTS 
8$ 7 


'Y 
(4 
i 


PC a(SP)+ 
ii 12% | 


PC, CMPERRSTS 


TAE !NDTMSK 
DPE | 


dy 


PC a(SP)+ 


12$ 


PC,SECERR 
10$ 


PC,a(SP)+ 
12$ 

RMDAO 

RMDAO, #64. 
11$ 
#FMT16,RMOFO 
12$ 


#FMT16,RMOFO 
#32. .RMDAO 


RETURN HERE IF ERROR 
sERROR # DEFINED eaten PUT SUBROUTINE 


3G0 TO 128 IF € 


;WAIT FOR GO TO RESET 


>GO READ wit + WITH GET SUBROUTINE 
:GO_TO 5$ IF NO ERROR 

;RETURN HERE IF ERROR | 

ERROR # DEFINED BY CET SUBROUTINE 

[GO TO 12$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 
:GO_ TO 6$ IF NO ERROR 
sRETURN HERE IF ERROR 


sERROR # DEFINED BY PRIERR SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:GO TO 12% IF ERROR 


+ G0 VERIFY SEARCH atl 
TO 7$ IF NO ERR 
RETURN HERE IF ERROR 
sERROR # DEFINED BY SCHSTS — 
GO: BACK FOR MORE ERROR CHECKS 
:GO TO 12$ IF ERROR 


:60 CHECK FOR CHANGE s IN DRIVE STATUS 
TO 8$ IF NO ERR 
‘RETURN HERE IF ERROR 
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 
:G0 TO 12$ IF ERROR 


>CHECK ANY ERRORS NOT MASKED 
«MASK FOR RMER1 
sMASK FOR RMER2 


:GO TO 9$ IF NO ERROR 
:RETURN HERE IF ERROR 


ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS) | 


;GO TO 12$ IF ERROR 


GO CHECK FOR SECONDARY ERRORS 
:GO TO 10$ IF NO ERROR 


OR 
;ERROR # DEFINED BY SECERR SUBROUT INE 
G0 BACK FOR MORE ERROR, CHECKS 


G0 TO 12$ IF ERROR 


4 ae SECTOR ADDRESS 

‘BR NE YET | 
R IF NO | rf 

sTEST FOR 16 BIT MODE YET ? 

:BR IF YES 


SET 16 BIT MODE 
sSET INVALID SECTOR = 82. 


SEQ 


- 
i? 
\ 


“ 


59 


SS es RE en ce eee 


—_— — - 


ee 


ee 


A Te Se sateen 


LLL se ene eee hae -eeenerstnsnonn oneness manna 
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761 SEARCH INVALID SECTOR 
2061 036610 00137 036346 1$- MPS TEST NEXT SECTOR 
2062 036614 12$: 
|| 2065 
2064 + RARER ERRERARARERARERERHRHERERERERR KR EREREREEO EERE EE 
SSTEST 62. SEARCH INVALID TRACK 
*“*PReRaReeenkeanaeeaeanae ROR RER SSE SSESSSSEUO PERSE EEE SESE SSOSOLCLOCLO FE 
omit TST62: 
036674 000004 SCOPE SCOPE CALL 
036616 000240 NOP :START OF TEST 
036620 012706001100 ti, MOVs #STACK, SP SINITIALIZE STACK POINTER 
036624 013700 001276 | MOV —«- $BASE, RO :RO = UNIBUS ADDRESS | 
- 036630 013701 001464 MOV TSTQUE,R1 |  :(R1) = DEVICE BEING TESTED 
ops 23665 912787 000062 001226 MOV | W62,STESIN SET TEST NUMBER IN APT MAIL BOX 
2066 036642! 004737 041650 ||. JSR .TSTPRP ;PREPARE DEVICE FOR TEST 
036646 054130 "WORD 084130 :TASK DESCRIPTOR AS FOLLOWS: 


. Ta : :CLEAR CONTROLLER & SELECT DEVICE 
! Ny | Hu Eamets ; VERIFY CONTROLLER CLEAR OPERATION | 
| | sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
| | 7 | ; VERIFY PACK ACKNOWLEDGE | 


—— eS ren. 


ee = ~ oe e 


| | A. “Fey : ;RECALIBRATE IF ‘'SKI'’ OR ‘PIP’ IS SET 
‘ “VERIFY RECALIBRATION 
036650 000404 : BR ae :GO TO 1$ iF NO ERROR 
| 036652 9 g0ene | NOP ;RETURN HERE IF ERROR 
| 036654 4000 EMI 4 ZERROR # DEFINED BY TSTPRP SUBROUTINE 
: || 936656 0001 7) 037224 oe ae Se =GO TO 12$ IF ERROR 
5088 asees Oibp87 boos: LH IR lt Oa ta 
2070 036676 | 013737 001332 001416 = MOV LSTRK ,RMDAO LAST TRACK, SECTOR = 0 
"/2021) 056 04 105237 001417 | INCB ——- RMDAO+1 “SETUP FIRST INVALID TRACK 
‘2072 036710 012737. 900009 | 001442 MOV #O,RMOFO = —s-:SET_18 BIT FORMAT 
sore 036716 | 012702, 001 545 MOV PUTIN, RE :WRITE REGISTER, INDEX TABLE |; | 
2075: 036728 112720 000034 Hi) MOV RDC (RB) + Ht | VY 
5079) 086736 113790 900000 |! ae ee te ee 
j fi ' Le + 
| Soe Baeree ane78> BadEIe Oye #200, (h2)* TERMINATE TABLE 
| 080 036752 * T gf: | food || | 
2081 (036752, 004737 052264 it || JSR PC,CNTCLR - |3GO ISSUE CONTROLLER CLEAR! 
| 03625 000404 . Tl BR 3$ iGO 10 3$ IF NO ERROR 
(900240 | 11): NOP | | SRETURN' HERE IF ERROR 
pss 0 i EMT . ;ERROR NUMBER DEFINED BY SUBROUT INE 
76h “000939 037226 ii oi me :60 10 128 IF ERROR 
(hie 036770 004737 oostep Ow JSR °° 'eC.puT | :GO WRITE REGISTER(S) WITH PUT SUBROUT INE 
Ce BR es, :G0TO 4$ IF NO ERROR | 
36776 1090 00 Vie NOP | :RETURN HERE IF ERROR | * 
sas GeO | a ii a5 “ERROR' # we BY PUT SBrouTiN 
‘boa 057902 00013 Hy 37226" Wl es: 1 das :60 TO 128 1 
|} MA 1p GSs | 
ae 004737'!! 043522 vy Hy) SR PC. TaMOUT WAIT FOR GO 0 RESET 
208 037012) 004737 042710 — | JSR ec del 60 READ REGISTER(S) WITH GET SUBROUTINE 
Boba ae | BR 5 iO 5$ IF NO ERROR 
087026 260 vy | NOP ‘RETURN. HERE iF ERROR 


Mi ao x i 


‘|| 


, 2 fig : 
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'ée SEARCH INVALID TRACK) , SEQ 0167 
hii | | 
937022 104090 EMT iat ; ERROR f DEF INED oy ott SUBROUT INE 
037024 086"3 C37aad) UMP 12$ :G0 TO 12s IF E 
2088 03703 | i 4 | 
2089 037030 004737 0437106 | ‘WSR PC,PRIERR || ;GO CHECK FOR PRIMARY ERRORS 
, 037034 900405 fi 5H 6 :GO TO 6$ IF NO ERROR 
037036 000240 NOP | ||| @RETURN|HERE IF ERRO | 
937040 104000 | EMT | SERROR # DEFINED BY. Pale SUBROUTINE Y 
37042 004736 | SR PC ,a(SP)+ :GO BACK FOR MORE ERROR |CHECKS | 
37044 000137 037224, | || UMP 128 ' 360 TO 12$ IF ERROR 
2090 037050. , 68: 
2091 987050 004787 056422" | JSR PC, SCHSTS :GO VERIFY SEARCH OPE OPERATION 
| 037056 000240 | The ne NOP ta | ‘ e ‘RETURN HERE If ERROR 
iR57060 10 104000 ! W\ | 1 EMT ee | ;ERROR # DEFINED BY SCHSTS SUBROUTINE 
, 7062 | JSR PC,a(SP)+ | :GO BACK FOR MORE ERROR GHECKS ! T 
037064 00013? | 037284) \\ JMP 128) £60 TO 12$ IF ERROR = ||| | | 
2092 037070 | 7%: a | , iy I 
1 2098 03707 | 004737 057766 yer | us  PC,STCDRVSTS —_;GO CHECK FOR CHANGES IN DRIVE STATUS 
iH) 037 900 aes i Res . ee ae | 360 TO 8$ IF NO ERROR 
| '' 37076 a A NOP ii RETURN HERE IF ERROR 
| ents 104 0 Hi | EMT : TERROR # DEFINED BY STCDRVSTS SUBROUTINE 
| 037102 004 | JSR PC ga(SP)* G0 BACK_FOR MORE ERROR CHECKS 
He bing (037104 000137 037224, vere J #60 TO 128 IF ERROR ‘1 | 
| "2094 037170 il \! igs: | | | 
| 095 037110 004737, 050400, \ JSR . ERRSTS CHECK ANY |ERRORS NOT MASKED | 
| 037114 117760 -WORD | ND K JAE ;MASK FOR RMER1 | 
| 037116 000010 . ee. D- MASK FOR RMER2 | 
1 1037120 000405 Hh, | ge : :GOQ TO 9$ IF NO ERROR ) | 
| 037122 0002 ee i NOP es i ‘GRE TURN HERE IF ERROR : | 
: 037124 104 , | pay fot TERROR # DEFINED BY CMPERRSTS SUBROUTINE 1 
037126 00473 J§R, | PC, ai'sp) + G0 BACK FOR MORE ERROR CHECKS | | 
=n aa 000131 | 037224 |, JMP 12$ | 760 TO 12$ IF ERROR 
: } ' yi : if 
2097 037134 004737 | 044540 | yh JSR PC ens :GO CHECK FOR SECONDARY ERRORS — 
bi iy 037140 000405 m BR  :60. TO 10$ IF NO ERROR U1 
ath 037142 000240 NOP | ae ' | SRETURN HERE IF ERROR — 
| 032144 104000) | EMT ||| TERROR # DEFINED BY SECERR SUBROUTINE 
, 037146 0047 | | JS PC,a(SP)+ | G0 BACK FOR MORE ERROR CHECKS 
| 037150 000137' 037224) a mp 8 _ G0 TO 12% IF ERROR | 
gues 037164 i 10$: ha 
' | 9099 037154 105237 001417 | INCB —s- RMDAO+1 He INCREMENT TRACK ADDRESS 
| | 21700 037160! 123727 001417 000200 CMPB = RMDAO+1.#128. | DONE ALL TRACKS ? | 
| sia 037166 101414 | 3 _, BLOS | 18 | ENO! S| | 
_ 8193 037170 032737 010000 opr4a2 | BIT abnrts, RMOFO DONE 16 BIT MODE ? | 
|! | 2104 037176 90101 le BNE = 12$ ; YES! 7: 
| 2105. 037200 01273 4 001442 MOV \MFMTI6,RMOFO =: SET. 16 BIT FORMA) | 
| 2106 037206 01973? | 01332 001416 MOV | USTRK,RMDAO LAST TRACK, SECTOR = 0 
| 210? 037214 105237)! 001417 | ') NCB. | RMDAO+1T -SETUP FIRST INVALID TRACK |ADDRESS 
| 119198 037220| 000157 1036752 | 11$:  JMP 2$ i TEST NEXT TRACK | 3 
: 2110 037224 Lal 128: uit fa . | 
) ‘e111 It | yy! | iit | , 
PIT? iy i{ | . jtptenssearensenssenseunsusasdunsensssesanseswagen secs eseeenenes 
| | S*TEST 63; SEARCH INVALID CYLINDER i | 
\ ° Satta eee er Sere teee ier iis t ieee titre eter ees eeeereves 
2 oF; rey rit 
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i ' 1} 
O37P2h 000004 | hae i ‘a2 NOP | (jth! p MITA St STACK POINTER 
O37226 000240 lif MOV “als 3 UNIBUS AD $s : 
O3M2S30 912706, 001100 MOV ted) DEVICE. BEING TE gr 
7234 013700} 001276 i } MOV Etat i| | 3; SE) TEST NUMBER IN APT MAIL 
| ‘937240 013701) 1h68 itd. =u MOY | 3 STESTN 7 SEM 
ui ee Ste Se: GROG BY : PC, TSTPRP : PREPARE CAIPHON Ins feet ows: 
3114, 057252 gpu797 01659, : 2 ‘ictean rOwinocten’¢ SELECT Device. 
Pe ee we | FRMee Leeman SUES SERS 
“ : '| aT, [! ? {| | etn RIFY PACK ACKNOW NOWL EDGE PIS. SET 
| "4 ‘| ! it i. ! ! | i! |: | | | | it} % |} } R IBRATE IF ''SKI' OR "PIP ] 
2 \/ yt | iL | 2 add pag ay sIF'No eRaon 
ot Rayer He geet ast arg N HERE IF E 
a 037260 ogoc0e | ary fio / Wie RETR 4 OFF INED 8 BY “TSS in 
ua 37262 ceiey ARTY EMT | yar | Vt “GO TO spas» ROR | {| | 
& 53 264 i 1 | bat BR ant Pty 
hk 7 037624 . j HC 
BE ° 266 00013 borerg Sal aie |e EARCH GO RMCS1 "Sata 1 af Piast INVAL 1D) CYLINDER 
Vt S116! 7272, 012737 000031 901410 TL may } |, #B2 ‘ie 0.5 CTOR = 0 ee 
| 2 3 7300 0127137 0014 001416 ‘|! Mov 14 pty ail i SET. 18 BIT FO Py 
\ s1h8| 957308, 013039 300000 001445 | l mor. lett wel |): nin, REGISTE) NTNDE sesso 
, é \ wi ue a \ 
| 121 eeu 012702, 0075 | ii ic may / Fe (R2D+ i! ui] Be Batol h | 
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21 4! ay iy 1" ine ie | I | 
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|. \ > 037364 | aa0240 a Mi 60" 70 12s. eee : 
mth We 4000 Fon Fics L 148 | TINE | | 
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ip 183, 7416 | 004737) (042710 ee BRN 155 ilps p% of 3s A te ERR LN =" md 
218k | 037446 422 904757 Px f OF, | | “ y ERROR ns F IINED BY G ee 
900608 Hin my | E tl]. i . | (1/2 iF ERROR | 1 | : | | 
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hill 1989630! 000199 037624 eee Si f so HH san-edied FOR that ORS | ) 
Jit" ag36 §37d3c' | 006737 048706 ae ) us aah FRE TORN ERE! APE noe a 
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11:45:28 PAGE 73-81 


if) sCLEAR CONTROLLER @ se.ect DEVICE 

‘| \|}  SVERIFY CONTROLLER CLEAR OPERATION 
[1|) PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: :VERIFY PACK ACKNOWLEDGE 

| | ;RECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS set 
| :VERIFY, RECALIBRAT ION 


1$ TO 18 NO ERROR 
; s E TURN HE z IF ERROR 

| oe ERROR # FINED BY TSTPRP SUBRUUT INE 

as | | 0 és IF ERROR 

#RMMR1|,PUTINX SETUP PUT INDEX TABLE 

#200,PUTINX+1  =SET TERMINATOR BYTE 

#DMD | RMMR10 :SET RMMR1 OUTPUT BUFFER = DMD 

PC.PUT :GO WRITE RMMR1 VIA PUT SUBROUTINE 

2$ :GO TO 2$ IF NO ERROR 

“RETURN HERE IF ERROR 
_ ZERROR DEFINED BY PUT SUBROUTINE 

8$ -GO TO 8$ IF ERROR 

#0,RMMR10 “RESET DIAGNOSTIC ™ MODE | Z 

#0,RMDCO FCYLIND "0, $ | | 

#0,RMDAO . | » TRACK SECTOR = 0 | |. FY 

#0. FO hb :18 BIT FORMAT 3 p | 

#SEARCH'GO,IRMCS1 :SEARCH COMMAND | 

#PLUTINX.R2 ;LOAD INDEX TABLE | 

#RMMRI, (R2) + | ay 

#RMDC, (R2) + = , | 
| ARMDA,(R2)¢+ , | 
| MRMOF (RO) + | | 


%. RMERE I, SBDD 


| RMOF pets tH | | 
Si,cR2)¢ (il ty | | 

oS) tc Ss ‘a 
PUT nee 


PC, i | 3GO WRITE REGISTER(S) WITH PUT SUBROUT ING 
3$ (| ( {260 10 38 IF Tier 
ite UW TTR URN HERE IF ERROR fre 
Sih sea IEE OR # DEFINED BY Bur isuarOUT INE 
t he EG Me 8$ IF ERROR | ) 
br ; OUT ;WAIT lee GO TO RESET =. 
PC,GET | :GO READ REGISTER(S)! WITH . S Rout ne | 
(4s | | 760 TO 49, 06 MO ERR RROR 
ii | | :RETURN HERE IF ERROR 
Cia : ERROR w DEFINED BY |GET isis 
8$ GO TO 8$ IF ERROR 
‘IRE PRIERR "360 CHEGK FOR remo ERRORS || | 
:GO TO)|5$ IF NO 
Ke? [RETURN HERE IF ER AOR Lt | 
_ FERROR # DEFINED IRR_ SUBROUTINE, 
PC,a(SP)+ =G0 BACK FOR MORE E. CHECKS 
8$ GO TO 8$ IF ERROR | 


#IVG. RMER2 i ;D1D IVC SET?? | | -_ at 
6s | ne VES! 


#IVC$GDDA SENPECTED STATUS | 
T  =RECEIVED STATUS 
; ' ; | 
| | | | 
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| | 


164 IVC SEARCH TEST SEQ 0165 
| 
2188 040134 042737 167777 001142 BIC #*CIVC,$BDDAT 
2189 040142 104260 EMT 260 | 
2199 060144 63: | 
2191 040144: 004737, 050400 JSR PC, CMPERRSTS CHECK ANY ERRORS NOT MASKED 
040150 115760! .WORD  NDTMSK :MASK FOR RMER 
040152 010010 .WORD | IVC!DPE :MASK FOR RMER 
040154 000405 BR 7$ :GO TO 7$ I NO ERROR 
| | 040156 000240 NOP “RETURN HER ERROR 
040160 104000 EMT “ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
040162 004736 JSR PC,a<SP)+ :GO BACK FOR MORE ERROR CHECK KS 
| 040164 000137 040204 JMP 8$ :GO TO 8s IF ERROR | 
2192 040170 Be, © | | 
2193 040170 004737 044540 JSR PC, SECERR :GO CHECK FOR SECONDARY £RRORS 
040174 000403 | BR - -GO TO 8$ IF NO ERROR | 
040176 000240 | NOP | ;RETURN HERE IF ERROR | | 
040200 104000 EMT sERROR # DEFINED BY SECERR SUBROUTINE 
| 940202 004736 JSR PC, a(SP)+ | =GO BACK FOR MORE ERROR CHECKS 
2196 0402 ' S$: | ce 
2195 ! , 
2196 . jsnnennseesnananstersnsnssnnasaaiesssnaansvaqengequesenessetiny i | 
**TEST 65 ABORT SEARCH TEST 
_tssegtuencesanssneneasesennreusnanaenddunnaheresenensensenersas 
0204 | T3165: ! 
040204 000004 SCOPE :SCOPE CALL | 
040206 000240 NOP START OF TEST 
940210 012706 001100 MOY ASTACK,SP INITIALIZE STACK POINTER 
040214 0613700 001276 MOV $BASE ,RO ‘RO = UNIBUS ADDRESS 
040220: 013701 001464 MOV TSTQUE.R1 "(R1) = DEVICE BEING TESTED 
bee 0402 012737 000065 001226 MOV #65 .$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
198 040232 004737 041650 JSR PC TSTPRP {PREPARE DEVICE FOR TEST 
02 054130 WORD 054130 : TASK DESCRIPTOR AS FOLLOWS: 
‘ :CLEAR CONTROLLER & SELECT DEVICE | 
' VERIFY CONTROLLER CLEAR OPERATION 
K ACKNOWLEDGE IF VOLUME NOT VALID. 
cenit PACK ACKNOWLEDGE : 
SRECALIBRATE IF "'SKI'’ OR 'PIP’' IS SET | 
VERIFY ECAL IBRATION i | | 
040240 000404 BR 1$ 2 TO, 1$ IF NO ERROR | , 
040242 000240 ' ‘NOP | FRETURN HERE IF ERROR | 
040244 104 EMT | # DEFINED BY TSTPRP SUBROUTINE 
C40246 000137 040550 ip SMP 9$ of 9$ IF ERROR 
2199 040252 | 1$:!' : | 
2200 040252 012737 040000 001424 MOV | RsEaRCn CO. me UNSAFE ERROR 
2201 040260 012737 000031 001410 MOV wSE H'GO, RMCS10 g SEARCH COMMAND 
2202 040266 012737 O00000 001444 MOV uthek ; 
2203 040274 012737 000000 . 001416 MOV Wako CYL OR = 5. TRACK = 0) ) 
204 040302 012702 001543 MOV #PUTINX,R2 “WRITE REGISTER INDEX TABLE 
2205 040306 112722, '000034 MOVB ARMDC, (R2) + 
206 040312 112722 000006 MOVB ARMDA, (R2)+ 
2207 040316 112722 000014 MOVB RMER1, (R2)+ 
2208 040322, 112722 000000 4 MOVE: | RCS (R2)+ | 
2209 040326) 112722 000200 Jee | 200, (R2)¢ : TERMINATE TABLE 
2219 040332 oh 042624 ' JSR pC, GETSTS “SETUP FOR STATUS 
2211 0403 004734 043160 JSR PC PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
0342 000K0 hal sy 0 TO 2$ IF NO ERROR 
040344 , 000240 , rus ga FRE TURN HERE IF ERROR 


‘ity! bh 
; Lhe 


| | 


cZRMMBO RMOS/ 8/2 ecru list 1 
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av | ! | Wal SEQ 0166 








040346 104000 {il rhe ) J 
04035 13? my ooath | ; ERROR sa BY PUT SUBROUTINE 
2212 Oc03se 000137 04055 as eur 9S | nT 60 10 $5 nb 
os aan wee oie JSR iS pc cet 760 READ va WITH GET SUBROUTINE 
040362 000240 =|! mt i NT )|| “EReTORNTR 
320366 000187 Ay e Wy LAL RETURN, BEF INED. ic 
Mie FINED BY GET SUBROUTIN 
2214, 940366 000157 040550 ) i 9 \ | :G0 TO 9$ IF ERROR | a 
| . | { 
sg aos SRT emo gy) sp-mobhsigp ser 
2217 040402 612737) 000000 maul |! #0,$GDDA “ EXPE 7 
2218 040410 013737 , 00136 | XPECTED STATUS 
2319 040416 042737 | 157777 it rie Mi sre haaeahe yin oy 
2220 040424 104261 | EMT | 13 fe 
2221 Oh0426 2 | py 
eels te: ea see ~ Ml aia FO GO} ling R° af! 
— yep eget so 04e710 Si ae GET in 160 Ae READ n REGISTEH(S) WITH GET SUBROUTINE 
920442 | 164000 a : RET aN MERE IF Ee °GET SUBROUT! 
| | NE 
3995, ep eer 000137 040550 JMP | 9$ 4, “60 TO 9$ IF ERROR | 
one aa make 043706 JSR | PCLPRIERR’ ;GO CHECK FOR PRIMARY eRRORS 1 
| 0460 104000 emT i |. fy] : RETURN HERE IF ERROR|| | | | 
0462 004736 (JSR')') ‘PCatspre “60 BA Bick hone eon chee SN 
| 2 8 040470 004737 | bes eG aa PC»STCDRVSTS | : 6 2 ce FOR may IN DRIVE STATUS 
| (940476 900240 =, | | hop LL , IF NO ERR A 
|| / 040500 104000 - EMT \ & ine N MERE TE ERROR SUBROUTINE || | 
| 940804 000137 040550 JsR \|!'pc,a(SP)* | GO BACK FOR MORE [ERROR CHECKS 
2229 040510 a: J 9S i hee :G0 TO 9$ IF ERROR | | 
C2 OOO210 006737 050400 ie JSR PCE PERRSTS| a CHECK ANY ERRORS NOT MASKED Hy | 
040516 000010 ey , one | etek is :MASK FOR RMERI att 
. 040520 05 } | Bel! BS i 3 ;MASK FOR RMER2 | 7 
040522 000240 {/')) ‘Fo fii) Tgp fil GO TO 8$ IF NO ERROR) ' 
040524 104000 |) Jl .. | oF | i = RETURN HERE IF ERROR | 
040856 002736 a Lene ba ~ 2L eo eee ZERROR # DEFINED BY CMPERRSTS ais fo 
040530 000137 040550 Tc Gti” - FE og°* SP)+ | :GO BACK FOR MORE ERROR CHECKS | 
2231 040534 | , a $i | . > GO 19 9$ IF ERROR | | ~ 
sr 0405 34 004737 em |: woe a) JSR | oc ;GO CHECK FOR SECONDARY ERRORS | || | | 
i Qegees Sense Ht, bl eld, A SET GO TO 9$ IF NO ERROR ) 4 
|| 940548 104 Rar TLL RRR BEE Ineo BIE on 
| el ya | | wees Ad SECERR SUBROUTIN | | 
2233 ags80 a al vay BRP Te) | |), EOE POR MORE RROR CHECKS i" | 
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ISSTEST 66 SEARCH AT OFFSET | me 


Te i | | *: meer eee ttspaseennesegdeddyaenenndnecssyacons 

tf f j it i ! | 

HAL | ' ae ’ i | | re 
| Hn. i : 














| HI 
Pt. Ad dey Py qty )1¢ 
| : pb 2 3) me 
fi re 1 7 , {| L - | 
ae id | ie I son #81) 11: 43:28, PAGE | 13 84 | 
Paty CRO vO04. 00 iy VT 1 ' | 
| dotitya FCTNL = 1 ) Hi ne PE CALL | | | | | , | 
(Remo aire Ay OFFSET em | 1S 766: scone haar : wien. wh os lll 
040550 ; a | ACK,SP ADDRESS T , | 
De RS we iS sae 1) ee ibe uirha 
001 | if TSTQUE SET TE | 
| 0554 012706 1276 | (MOV , TESTN ie PTY | 
| 040560 BI eOt Hare ra2ell mov |, 1a 7 ; PREPARE sevice on vet) [ 
"| 840896. 012737 |G be . | ysRiil P istPR CLEMR CONTROLLER & 1 BLEEP eve oy 
, | . Pr) oy] 
, 5389 060576 004737 0« vat | ui mi ae 8s ih \ a IFY CONTR DEE IF Hou = ix wee | et 
a ’ | ' a + ; : K , ! 
whe. h be608 — | | J S ly VERIFY. PAC iA ete OR PIP’ 1S. SET | | 
el he hd ag lt ptt | (| GRECALI da IBRATION | | I 
| i! : ith | r | | : i fe | pte , , f 
| vin 1 | | | | R in 1$ | ‘RETURN FE ea mtn 
ae | Nod h Len ee a NOP We daa |) | PERROR # ERRO , : 
| 4 ie es 900880 ee ie ee: Bor Bs | | / :G0 TO 9S} JF | | | | 
i 0 ieee } JMP | | DER = 0 | | 
i Be ea 000137) 061106 ULL as, i, #0.RNDCO, | i Teak = 0 Mele oy | 
) | 001446 | | | MOV 0 FO . 
Mt 2238 bcos 16 012737| 900000 001446 MOV. ahr Feo. mS he ae TABLE | 
(Se ae a A ee yo 
if | iF \ QO 01 : 43 hip e | MOVB | | PREIDA De | ~ aa . | | 
| 2242! 06 2702):| 0015 og | | ARMDC: (R | T | 
| 0646 01 "000006 |  MOVB, | R2)+ bay | 
- $546 Ouogs in2%e8 || ONS! | A ae | Rp “ PUT sypRoUT in 7 
|) Beg Biteee 1190 TIE RO ae weit acsee i pu ih 
594 ?| 040666 l1g7de 000 t4 ae | Ove eG I, HERE 15 ERR BLT sao | boy 
Ni l226ig} 0672 ere $ 043160 © tlh re 2a 5 | ERA be INE U i | = 
1 || (PP ier. cay. . a ee Em Fe ey a all eet | | ; 
B / | i “a \ ; Hy, | 
Wi 040704 SOgn6p Lf a tata bak, $ ‘a | ; SETUP hots STAT S| hia ' | | : } 
040706 1 137 041106: pd a ‘usr | pdetsts) ' mt 7 
Tog tae a ma i : PC. TIMOUG | | INDEX TABLE Fi | 
a soey pearls | | 4737 b B53 av . 1,PUTINX  ;LOAD REGISTER ; No 
$32 oeo720 904735 | mi if ‘il a PetiG. +1 sae a ACh ata SUBROUTINE | fy 
mt ate ge al co Or we | 
$38 N1275 0 <i RR | OY 
| big ea RE IF E ROUT INE | | 
740 012 160 | ay hy ns he EFINED BY 4 , | 
, 2287 ouoree 906787 | Das m4 Y , i, a, . ERROR 98 IF ERROR || : 
! { 0752 24 ft x | |, EMT 9 | i * C r cOMLETE | 
ri 920754 000 Teen Tedd (OT as ie st Hy iyatt FOR, a p dit cet suardutine | 
| 040760 6137 ae ut ' PC ipo | inn iat ah wa Poe ITH ) | , 
43 | 4 5$ 
859 040764 oye! ¢ in I | pel i ‘ag ” it ‘Boag N HERE i “ay eet uno | 
| 2 737 (042710 ~—« at in| f (EERO DEF | NED : | | 
1 2261 1040770, G08 i], | ta IF ERRO al ' | | | | | 
| 040774 240) | Hh | , | nt * ee ee | | 
A | ere *Y 000 4 MP | HI F Wy |! 7 ik i 
| Ga 1002 000137 | 58: | } | | | , | ) | | 
Me hy AWN oy s * 
7 | i oo 
cal Wy 1 | I, 
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FCTNL TST 1), MACRO vO to 4-APR= sl] 11243528 PAGE 13-85 | 
(766 |, SEARCH) AT OFFSET mh ! | Ht | : , SEQ 0168 
2263! 1041 i 6 stiri 1 / SR at RIERR || |), :GO CHECK \F OR PRIMA ERRORS | 
io a Ss g | ne hg i $ re or 68 iF | | 
041014 ‘6 i Re | RETURN HERE IF ERROR | 
1016 | EMT | ;ERROR # DEFINED BY PRIERR SUBROUT INE 
1); 061020 004736 , ey eT st c asp) GO BACK FOR MORE ERROR CHECKS | 
041032 000137)’ 04) 106 Pe oY 1 360/70 98 IF 
64 041026 . “ae 68: tt) | . boing 
2265 041026 004737 05640 | | JSR) ae a Ts, :G0 VERIFY SEARCH. OPERATION ly 
041032 000405 T | | :GO. TO. 7$_ IF | NO|/ ERROR / | | 
041034 000240 | || NOP Hy al itor HERE | If F |ERROR t 
041036 104000 ae EMT |" TERROR # DEF INE NED BY, SOHSTS wpvoine 
041040! 004736 | ‘|! Ise St a(sP)+ OR cH 
041042 | 1000137 41106 ad ae la 60 70 9s FoR ERROR . 1G, 
2266 041046 i a | dy iif fla | 
2267 041046), 004737 050400 , JSR | PC, cen I; Be gh Sears Ht MASKED'|) | | 
041052’ 115760 | WORD ||, | ) ||) 
041054 000010 A ale "WORD'''| DPE | . EMASK 'FOR RMER , | au 
041056 00405 NY oh GR BB (1 480 TO 8$ IF, ERROR | og 
061060 090240") | | NOP ME eM RN HERE If | ERROR ti 
41062 104000 bei he aa EMT i “ERROR EFIN D BY CMPERRSTS sir TENE || | 
04 1064)" Ooo : Ba JSR’ PC,@(SP)+ GO BACK RE ERROR CHECK | | 
| gprs OFT 706. ti! MP 9$ 760 TO " IF GRROR i | 
/ 2268 02107 2 Bs - | ak i 
2269 hic 1004737 064540 ha Js il PC, SECGERR 360 C CHEEK \FOR SECONDARY ERRORS | | 
041076 000403 es BR, OOS NO ERROR | | 
041109)|000260 | j,)) NOP ‘hee IF ERROR | 
041102 104000 | ||!" ERROR, FFINED BY SECERR SUBROUTINE a | 
041104 004756 mal wil 15f | PC aCSRD + K FOR MORE ERROR|CHECKS | 
| 2270 041106 | me i | | | | My | 
227) | I i ba! 7 | iy | 
2279  ukikh dhetenstah ia hetnaenereeeereeeenees ! 7 
| "| f Pi, 3% iI TEST il HEAD, LIGNMENT 5 paid || | 
I ly 
i | , ce HE EAD AL IGMMEN FOR AN RM05/3/2 DRIVE, 1S PERFORMED AT, CYLINDER 
iil | 4 DECIMAL SING THE CE!PACK. A 60 MINUTE WARMUP IS REQUIRED IF 
| i / :*THE PACK WAS/INOT IN TH. DRIVE nee 9 HEAD ALIGNMENT OPERATION. 
| ’ Fis i cassscetell sosneengunaiduneatanantatentansnsnevnnnsyes | | 
041106 | ae ipr67: Gries aie in if | 
041106 8008 | | SCC Pf | stop a 
041110, 900240). ||! NOPE T) ST | ) 
o41qi12' 012706 00110 I ae + ASTER, 8 sp FINKE fITALIZE STACK POINTER | 
041116 '013700 001276 AL MOV ‘1 ZRO l=’ UNIBUS ADDRESS ' | 
041122 013701 001464 | MOV TSTOUE RI i i = DEVICE BEING TESTED 
F | 041126 012737 000001 BRHEBE MOV #1,$TIMES | ::DO 1 ITERATION 
Spin 041134 O1275n) | 900067" '001226 MOVs #67, STESTN |, SET TEST NUMBER IN ‘APT MAIL BOX 
2281 041142 | tee 8 hd, Bu [Sil | 
2282 041142 oe re 041650 | _  {USR PC TS TPRP :PREPARE DEVICE FOR TEST 
041146 i WORD’ 054130 TASK DESCRIPTOR AS FOLLOWS: 
Miu | : CLEAR CONTROLLER & SELECT DEVICE | 
Wy A | I) | | EVERIFY CONTROLLER CLEAR OPERATION 
in , PACK ACKNOWLEDGE | VOLUME NOT VALiID 
. VERIFY Satie | 
Thane | ERECALIBRATE LF 'SKI'" OR PIP IS SET | | 
Hy ! i. VERIFY Sir noT eR | 
041150 000404 | A BR 2$ 


:6 aA 2$ IF NO. 
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+ laa! HEAD ALIGNMENT SEEK Thal Ey ad 
249 (TA gl n vere |b ene 
$132 eta TA EMT mes Fy ERROR a (seks Tdle —- 
1196115 041374. , sia id MP as ‘66 10) 8$ IF ER | | 
£285 061162 65) ( dow | | SEYLINDER = 245)! Pid 
5585 041170 gy Gogmes' eatet 11 / MOM ||| ABE sMRED | |, ZCYLINER, F245} | Hd 
} Bw. we f' Kw 1. 
at 821176 012737 5 0014610 |||!) Mov ||| ase K'GOLR S10 : LOAD Ty} ormcel ie BLE or 
2287 041204 012702 001543 Ve MOV |) MPUTINX OINT ISTER | 
| 2288 041210 112722 000034 iP ||; MOVB ot c.¢ tk REGISTER | | , 
a a Fh 
| 2291 04122 Biter 000200 | |: MovB #200), oul ae 
Il) 2ag2 oy 004737) 04316 ! | | BS ST iE Fe WITH PUT SUBROUT INE 
Hee r ' ; 1 >: | RE | 
| 021926 102000 ii UM | it vil | meet ees! A eer SUBROUTINE 
ae J De ia ' 
229 041946 00 1B 041374 iat ' sb: I 4 ee Be, Ge : 1 | jis 0,10 FOR! S at ET | 
5 041950 00 73) 04852) ' ee | |YSR{' [PCL TY ovr || ee: waliahs RK il oo 
2 i | ' . 
$556 6 041256!’ 00473 737 (042710 NG il fi i: |! ae ii i 69 i: D (REC cISTE * TH a SUBROUT INE 
| mate | GRETURN) HERE Hi | 
| “} i , \ MT I) I! | Ee RROR BE Y GET an aan 
10613 | Pe GMP) | call i Bs a haa al | | 
| 2297 041 ney \ OSs) | aD : k , ERRORS | 
2298 Oo : i) (3 a | BC PC! en er us , 
& | 4 | F % 
| | ; he i | pai | me AEE “aM PRIERR eck | 
ain A ae ne a(sPr+ FIOR MORE ERR R. CHECKS’ 
1th 4 Hl lag MPL is 80 ic ¥ IF ERROR : 
! \ | yy hol ' | 
| | (BS Oe | ‘i hy ie iS Aes sexgtd :G0' VERIFY 18,0 se SEEK OPERATION 
| | ) : Ata ia a | | 6$ |, | ai iTO 6$ “NO 
I\i0 | Ly hate LANGE a 1380) URN H ne E \IF ERROR 
| VM | Li ral EMT i {4 Teale Edel BY SEKSTS SUBROUTINE 
| 19a | rca ine | pe ashe | : G0 Ts TF ERR MORE ee aes 
| | | 04 | ! igh bie pul } | : BS! | | | | | ; , R | 
2388 aha psy Wy a PC, cweera $14 ae eWEEK, ANY Cy NOT MASKED) 5 | 
| | | yy EAL % | | 
ae iii ¢ | The 1 WORD = at 3 Sk\ fF FO RMER2 am. | 
A ALTE ae 7$ | || | || £6010 7S IF NO ERROR 
| I ret i ai | NOP ' Ariel Ue as 3 ERE IF RROR | | IN 
iy 110 aH A Tear Bree tit ieiere | ERROR fie INED BY CMPERRSTS SUBROUTIN 
| | BS i nue ae Baer. Bee PC a(sPdie | | ':GO BACK F R RE |ERR CHECKS 
Le "06 ii ! Oi aa 8F all tS he ‘aval 4 |}: 
230 | _ Sty i} RECLLIER AT | rE 
ats | Met OTT | : Tet tee dy Bg , eae, 
b2 Ha EMT nee Ea: tt DE PINED BY \SECERR aroun 
Yi Ms O4 ie 4" ¥SR- |) PC,aqsP)+ =| | 1/360 Ck FOR MORE ERROR CHECKS | 
i i: . Th} : | | Helby | | ih i 
| | | ' | ey | | MYT fT 7 | | | 
| ll wt Tall WP bd Pe i 


SEQ 0169 


o-—— 


B 14 
“7RMMBO RMOS/3/2 FCINL TST 7 MACRO V04.00 4-APR=-81 11:43:28 PAGE 14 
FND OF SUB=PASS ROUTINE 


-SBTTL END OF SUB-PASS ROUTINE 


2 
3 :THIS IS THE END OF SUB=PASS ROUTINE. THIS ROUTINE iS USED TO 
l, < > TERMINATE THE OPERATION OF THE CURRENT DEViCE UNDER TEST AND 
5 sSELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
6 :TO TEST, EXIT IS MADE TO "SEOP* ROUTINE. OTHERWISE, RETURN 
i 71S MADE TO “READY ROUTINE. 
9 041374 O SEOSP: SCOPE 
10 041376 000240 NOP 
11 041400 013700 001464 MOV TSTQUE ,RO 3;GET POINTER TO TSTQUE 
12 041404 062790 000002 ADD #2,R0 ;ADJUST POINTER TO NEXT DEVICE 
13 041410 010037 001464 MOV RO, TSTQUE ;SAVE POINTER TO TSTQUE 
14 041414 005710 TST (RO) ZANY MORE DEVICES FOR TEST ? 
15 041416 001402 - BEQ 1$ ;BR IF NO 
16 041420 000137 007660 JMP READY sYES, JUMP TO ‘*READY’ ROUTINE 
4 041424 012737 001466 001464 1$: MOV #TSTQUE +2, TSTQUE rest ak tae POINTER TO FIRST DEVICE IN 
19 
20 -SBTTL END OF PASS ROUTINE 
FEET REERERRAERAE RRR EREK EEE 
: INCREMENT THE PASS NUMBER ($PASS) 
;*TYPE "‘END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yvyyvy’’ 
s*WHERE XXXXK AND YYYYY ARE DECIMAL NUMRERS 
:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO READY 
041432 , SEOP: 
0414352 000240 NOP 
041434 005037 001116 CLR STSTNM 3: ZERO THE TEST NUMBER 
041440 005037 001206 CLR STIMES 3zZERO THE NUMBER OF ITERATIONS 
041444 005237 001230 INC SPASS ;: INCREMENT THE PASS NUMBER 
041450 042737 100000 001230 BIC #100000,$PASS  ;:;DON'T ALLOW A NEG. NUMBER 
041456 005327 DEC (PC)+ ;: LOOP? 
041460 000001 SEOPCT: .WORD 1 
041462 003066 BGT $DOAGN 3: YES 
041464 012737 MOV (PC)+, d(PC)+ 7 RESTORE COUNTER 
041466 000001 SENDCT: .WORD 1 
041470 041460 SEOPCT 
041472 104401 041500 TYPE oo zc TYPE ASCIZ STRING 
041476 000407 BR 64$ ::GET OVER THE ASCIZ 
3765$: .ASCIZ <12><15>/END PASS #/ 
041516 64$: 
041516 013746 001230 MOV $SPASS ,-(SP) 7: SAVE SPASS FOR TYPEQUT 
7: TYPE PASS NUMBER 
041522 104405 TYPDS 3:GO TYPE--DECIMAL ASCII WITH SIGN 
041524 005737 001126 TST SERTTL 77 SEE IF ANY ERRORS THIS PASS 
041550 001431 BEQ $GT42P ;;BR IF NO ERRORS TO REPORT 
041532 104401 041540 TYPE ,67$ : 3 TYPE ASCIZ STRING 
041536 000421 BR 66$ ;GET OVER THE =a 
3367$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
041602 U6$: 
041602 013746 001126 MOV SERTTL,-(SP) SAVE SERTTL FOR TYPEQUT 
3; TOTAL NUMBER OF ERRORS 
gee 104405 TYPDS 3:G0 TYPE=-DECIMAL ASCII WITH SIGN 


005037 001126 CLR SERTTIL iiCLEAR ERROR TOTAL 


ee ee ee eee 
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041614 104401 001217 $G142P: TYPE ,SCRLF ici CARRIAGE RETURN, LINE FEED 

041620 013700 ©000462 $GETS42: MOV @a442,R0 iGET MONITOR ADDRESS 

(061624 001405 BEQ SDOAGN : : BRANCH IF NO MONITOR 
1626 000005 RESET siCLEAR THE WORLD 

041630 004710 SENDAD: JSR PC, (RO) 3iG0 TO MONITOR 

041632 000240 NOP gi ROOM 

041634 0002460 NOP ; 

041636 000240 NOP 33ACT11 

041640 $DOAGN: 

041640 000137 JMP a(?C)+ 7 ;RETURN 

041642 007660 $RTNAD: .WORD READY 

041644 377 377 O00 $ENULL: .BYTE -1,-1,0 3ZNULL CHARACTER STRING 


Z 
E 


R 
S 
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T PREPARATION MODULE 


38 041650 


41 041650 
42 041656 
43 041662 
rf: 041666 


4 
46 041672 


54 
55 041726 
56 
57 


017637 
062716 
105076 
162716 


004737 
004737 
0004 


17 
000401 
000000 
062716 
113776 
000137 


013737 


| 


000000 042620 
000006 


000000 
000004 


042624 
042710 


.SSTTL 


; REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. 
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TEST PREPARATION MODULE 
; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 


THE USER 


: SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 
: USING SUBROUTINES. 


sCALL: 


TSTPRP: 


NOP 
ERROR 


— 
Ww 


PC. TSTPRP 


TASK/VERIFY DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 

ERROR DEFINED BY MODULE 


SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 


(RESERVED FOR DRIVE CLEAR 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 


= 1 CLEAR CONTROLLER AND sh DEVICE 
1 


1 RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR 
1 RECALIBRATE DRIVE 


sSTORE TASK 
MOV 


wwe rs eee” 


000004 
041706 
042610 
001376 


1$: 


2s: 


VERIFY CONTROLLER CLEAR OPERATION 


(RESERVED FOR DRIVE CLEAR) 
1 VERIFY PACK ACKNOWLEDGE 
1 VERIFY RECAL IBRATION 


DESCRIPTOR AND CLEAR eis S ERROR CALL 
a(SP) ,39$ 


a Te 


1$ 
(SP) 


1$22, a (SP) 
37$ 


RMER21 ,40$ 


TORE DESCRIPTOR 
: MOVE SP TO USERS ERROR CALL 
:CLEAR ERROR CALL 
sMOVE SP TO NO ERROR RETURN 


sSETUP TO READ ALL REGISTERS 
:GET RMER2 


:BR IF NO ERROR DETECTED 
GET OVER ERROR NUMBER 
:ERROR DEFINED BY GET SUBROUTINE 
>XFER ERROR TO USER AND 
;GET ERROR NUMBER. 


;GET RMER2 AND SAVE FOR LATER 


SG TETRA AREER EERE AEE HEART REEEEEEREREEAEH EERE EAE ERERRERREEE RE RS 


LL PTE LE shang 
setter eesnseninnis esas a 
-— a 
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58 s SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK 
SS 041734 005737 642620 39$ SELECT DEVICE?? 
60 041740 100014 BP. 4$ “NO! ! 
62 041742 004737 050612 JSR PC ,DEVSEL :GO SELECT DEVICE 
» 63 041746 000411 BR 4$ :NO ERROR = CONTINUE 
', 64 041750 000401 BR 3$ 
| 65 041752 000000 WORD 0 ;ERROR NUMBER FROM DEVSEL 
66 041754 062716 000004 3$: ADD #4, (SP) : TRANSFER ERROR TO USER 
67 041760 113776 041752 000000 MOVB 3$-2,a(SP) 
8 041766 000137 042610 JMP 37$ 
56 ial ttt ttt ee eee RRR AAAS ELEEESELALAE SY 
71 :CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 
72 041772 4$: 
73 041772 032737 040000 042620 BIT #B1T14,39$ CLEAR CONTROLLER?? 
r% 042000 001451 BEQ 13$ =NO!! 
76 042002 004737 052264 JSR PC. CNTCER GO CLEAR CONTROLLER 
77 642006 000411 BR 7$ : CONTINUE = NO ERROR 
78 042010 000401 BR 6$ 
79 042012 O0CO0000 S$: WORD 0 :ERROR NUMBER FROM CNICLR 
80 042014 062716 000004 6$: ADD #4, (SP) : TRANSFER ERROR TO USER 
81 042020 113776 042012 000000 MOVB 5$,a(SP) 
82 042026 000137 042610 JMP 37$ 
84 STREETER AAR KERR EERE RARER RARER 
85 “VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 
86 042032 7$: 
87 042032 032737 000100 042620 BIT #B1T6, 39% :VERIFY?? 
88 042060 001431 BEQ 13$ =NO!! 
90 042042 004737 042710 JSR PC GET :GO GET STATUS : 
91 042046 000411 BR 10$ :NO ERROR GETTING STATUS 
92 042050 000401 BR 9$ 
93 042052 000000 8$: WORD 0 ERROR FROM GETTING STATUS 
94 042054 062716 000004 9S: ADD #4, (SP) : TRANSFER ERROR TO USER 
95 042060 113776 042052 000000 MOVB 8$,a(SP) : 
36 042066 000137 042610 JMP 37$ ! 
98 042072 004737 052402 10$: JSR PC, CLRSTS :GO VERIFY STATUS CLEAR 
99 042076 000412 BR 13$ :NO ERROR IN CLEAR 
100 042100 000401 BR 12$ 
101 042102 000000 11$: .WORD 0 :ERROR IN STATUS CLEAR 
102 042104 005726 12$: TST (SP) + :STRIP RETURN ADDRESS TO 
103 042106 2716 000004 . ADD #4,(SP) : SUBROUTINE AND TRANSFER 
104 042112 113776 042102 000000 MOVB 11$,a(SP) :ERROR TO USER 
105 042120 000137 042610 JMP 37$ 
107 SL REE EAE EEE ERE EEE EAE EERE ERE EERE RAERAERAEERERERERER EERE 
108 , “EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 
109 “NOT VALID 
110 042124 13$: 
111 042126 032737 010000 042620 BIT #B1T12,39% :PACK ACKNOWLEDGE ?? 
Ie 042132 001501 BEO 25$ :NO!! 
114 042134 | 004737 042710 JSR PC,GET : 


f 


Ww 
= 
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"EST PREPARATION MODULE SEQ 0174 
115 042140 000411 BR 16$ NO ERROR GETTING RMDS 
116,042142 900401 BR 15$ 
117' 042144 000000 : 14$ .WORD 0 : 

118 042146 062716 000004 15$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
119 042152 113776 042144 000000 MOVR 14$,a(SP) 
120 042160 000137 042610 JMP 37$ 
122 042164 032737 000100 001346 16$: BIT #VV,RMDS! 31S VOLUME VALID?? 
125 042172 001061 BNE 25$ sYES!! 
125 042174 012737 000023 001410 MOV #PAKACK!GO,RMCS510 LOAD PACK ACK COMMAND 
126 042202 112737 000000 001543 MOVB #RMCS1,PUTINX :SETUP REGISTER INDEX TABLE 
127 042210 112737 000200 001544 MOVB #200, PUTINX+1 
128 042216 004737 043160 JSR PC PUT :GO WRITE COMMAND 
129 042222 000410 BR 19$ :NO ERROR LOADING REGISTER 
130 042224 000401 BR 18$ 
131 042226 i7$: .WORD 0 ERROR FROM PUT SUB 
132 042230 062716 183: ADD #4, (SP) : TRANSFER ERROR TO USER 
153 042234 113776 042226 000009 MOVB 17$,a(SP) 
134 (042242 000562 BR 37$ 
136 042244 004737 043522 19$¢: JSR PC, TIMOUT :WAIT FOR COMMAND TO COMPLETE 
1458 . SAAR EAA AAA AA AE RARAEE ERRATA EREEAEEEREREERKEEEERREKREH EEK 
139 “VERIFY PACK ACKNOWLEDGE IF #BIT4 SET IN TASK 
140 042250 032737 000020 042620 BIT #114, 39% VERIFY PACK ACKNOWLEDGE ?? 
re 042256 001427 BEQ =NO! 
143 042260 004737 042710 JSR PC. GET :GO GET STATUS 
144 042264 000410 BR 22$ NO ERROR GETTING STATUS 
145 042266 000401 BR 21$ 
146 042270 000000 208: -WORD 0 ERROR FROM GET SUB - 
147 042272 062716 0004 21$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
148 042276 113776 042270 000000 MOVB 20$,a(SP) 
163 042304 000547 BR 37$ 
151 0423 004737 053262 22%: JSR PC ACKSTS :GO CHECK ACKNOWLEDGE 
1§2 042312 00041 BR 25$ :NO ERROR 
15% 042314 000401 BR 24$ 
154 042316 238: .WORD 0 PACK ACKNOWLEDGE ERROR 
165 042320 005726 24%: TST (SP) + :STRIP RETURN TO SUB AND 
156. 042322 062716 000004 ADD #4, (SP) : TRANSFER ERROR TO USER 
157042326 113776 042316 900000 MOVB 23$,a(SP) 

| 138 042334 000525 . BR 37$ 

| 160 ee re te hae FOOSE NERA RRRSAE GTS SORHRRANOSASCEA OLE CRE SSO ns 
161 RE CALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND “'SKI'’ IS SET 
162 | -OR "PIP IS ACTIVE. 
163 | ZRECALIBRATE DRIVE IF BIT 10 1S SET 
164 042336 25$: 
165 042336 032737 002000 042620 BIT #B1T10, 39% ;RECALIBRATE DRIVE ? 
166 042344 001027 BNE 3$ YES! 
167 0423466 032737 066000 042620 BIT #BiTi1, 39% :RECAL 1BRATE?? 
168 042354 001517 BEQ 38$ “NO! 
170 '062356 006737 042716 JSR PC GET :GO GET RMDS 
171 O42362 000610 BR 2Rt “NO ERROR GETTING RMDS 
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172 042364 000401 BR 27% 
173 O42 000000 263: WORD 0 :ERROR FROM GET SuB 
774 0642370 062716 000004 27%: ADD (SP) “TRANSFER ERROR TO USER 
175 042374 113776 042366 000000 MOVB 268. a(SP) 
176 942402 000502 BR 37$ 
178 042404 032737 040000 042622 288: BIT #SK1,40$ :WAS SKI SET ? 
179 042412 0010046 BNE 29$ :YES, GO RECALIBRATE 
180 042434 032737 020000 001346 BIT #PIP,RMDS] “1S PIP ACTIVE?? 
HH 042422 001474 BEC 383 sNO!! 
183 042624 005037 001444 293: CLR RMDCO ;CLEAR CYLINDER ADDRESS 
184 042430 005037 001416 CLR RMDAO ;CLEAR TRACK/SECTOR ADDRESS 
185 062434 012737 Q0O0007 001410 MOV #MRECAL !GO,RMCS10 ;LOAD RECALIBRATE COMMAND 
186 042442 112737 0000 001543 MOVB #RMDC,PUTINX ;MAKE CYLINDER ADDRESS AND 
187 2450 112737 000006 001544 MOVB ARMDA,PUTINX*+1 ;TRK/SEC ADDRESS LOOK LIKE SEEK To ZERO 
188 042456 112737 000000 001545 MOVB  #RMCS1,PUTINX+2 :AND REGISTER INDEX 
189 042464 112737 000200 001546 MOVB  #200,PUTINX+3  :=SET TERMINATOR 
190 062672 004737 043160 JSR PC ,PuUT G0 ISSUE RECAL IBRATE 
191 042476 000410 BR 31$ ;NO ERROR 
192 042500 000401 BR 30$ | 
193 042502 0000 . WORD 0 ‘ie ZERROR IN REGISTER TRANSFER 
194 0425 062716 000004 30$: ADD #4, (SP) : TRANSFER ERROR TO USER 
195 042510 113776 042502 000000 MOVB 30$-2,a(SP) 
196 |04251 000434 BR 37$ 
+ 042520 004737 043522 31$: JSR PC, TIMOUT s;WAIT FOR COMPLETION 
° STARA EAA RKEEKERR ERE EE 
201 “VERIFY RECAL IBRATE IF BIT 3 SET IN TASK 
202 042524 032737 000010 042620 BIT #B1T3,39$ i VERIFY RECAL IBRATE ?? 
203 042532 001430 BEQ. ZNO 
205 042534 004737 042710 JSR PC GET :GO GET STATUS 
‘206 042540 000410 ~\BR 34$ NO ERROR GETTING STATUS 
20? 042542 000401 BR 33$ 
208 042544 000000 32$: -WORD 0 :ERROR FROM GET 
209 042546 062716 000004 33$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
210 042552, 113776 042544 000000 MOVB  32$.a(SP) 
eu) 042560! 000413 BR 37$ 
213 042562 004737 054056 348: JSR PC RCLSTS :GO CHECK RECALIBRATE 
214 042566 000412 BR 38$ ;NO ERROR DURING RECALIBRATE 
-. 215 042570 000401 BR 36$ 
216 0462572 35$: ~WORD -. 0 Z;ERROR DURING RECALIBRATE 
217 042574 005726 363: TST (SP)+ ;STRIP RETURN TO SUB AND 
— 218 042576 062716 000004 ADD #4, (5P) : TRANSFER ERROR TO USER 
219 042602 113776 042572 000000 MOVB  %35$,a(SP) 
220 042610 162716 000002 373: SUB #2, (SP) sMOVE SP BACK BEFORE ERROR 
221 042614 000240 38$: NOP 
222 042616 000207 RTS PC :RETURN TO USER 
224 042620 000000 79¢: .WORD 0 > TASK/VERIFY DESCRIPTOR 
225 042622 000000 L0$: “WORD “CONTAINS RMER2 
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THIS SUBROUTINE SETS UP THE “'GET INDEX TABLE’ AND THE ‘GET 
sBUFFER'’ FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE 


:AND THEN RETURNS TO THE USER. 


>CALL: 


GETSTS: 


3$: 


4$: 


JSR 
EAE 


PC .GETSTS 


RO,=-(SP) 


3$ 

#200, (RO)+ 
(SP)+,R2 
(SP) +,R1 
(SP)+, RO 


PC 


RETURN HERE 


3¢PUSH RO ON STACK 

:sPUSH R1 ON STACK 

3;PUSH R2 ON STACK 

iR ADDRESS OF INDEX TABLE 
:R1 = ADDRESS OF GET BUFFER 
iR REGISTER INDE 

sWRIIE REGISTER INDEX IN TABLE 
:CLEAR CORRESPONDING LOCATION 
sDECREMENT TO NEXT INDEX 
sBRANCH OUT IF DONE 

sDONT WRITE RMDB INDEX 


sWRITE TERMINATOR 

:sPOP STACK iNTO R2 
;sPOP STACK INTO R1 
;;POP STACK INTO RO 
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000004 
000006 
001174 
001176 
001176 


000016 
000016 


14 
17 


-SBTTL GET SUBROUTINE 


sTHIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
3'GET INDEX TABLE’’ AND STORES THEIR VALUES IN THE CORRESPONDING 
sLOCATION IN THE “GET REGISTER BUFFER’', FOR EXAMPLE, AN 
SENTRY. OF 04 IN THE TABLE WILL CAUSE THE SUBROUT INE TO 

READ *'RMBA"’ STORE ITS CONTENTS AT THE LOCATION IN 

>THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER OF 
;REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE 
; TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 
; WHICH SHOULD FOLLOW THE LAST ENTRY. 


: SUBROUTINE CALL: 

347) ‘GET Be TABLE’’ HAS BEEN LOADED WITH REGISTER INDEX 
: VALUES AND TERMINATED WITH A CONTROL BYTE 

wigs "GET INPUT BUFFER’' IS AVAILABLE FOR USE. (NOTE THAT 

: UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING 
TO REGISTERS NOT READ, ARE NOT CHANGED.) 


INDE x 


7(3) JSR PC GET 
; BR 2??? RETURN HERE IF NO ERROR FOUND 
; NOP RETURN HERE IF ANY ERROR FOUND 
: ERROR SUB DEFINES ERROR NUMBER 
3RO = REGISTER BASE ADDRESS 
3R1 = REGISTER ADDRESS 
zR2 = BUFFER BASE ADDRESS 
3R3 = BUFFER ADDRESS 
zR4 = POINTER TO REGISTER INDEX 
GET: NOP 
ADD #4, (SP) ;CLEAR ERROR NUMBER IN USER'S 
CLRB a(SP) sERROR CALL 
SUB #4, (SP) 
MOV RO,-(SP) ;zPUSH RO ON STACK 
MOV R1,-(SP) 7ZzPUSH R1 ON STACK 
MOV R2,-(SP) 3ZPUSH R2 ON STACK 
MOV R3,-(SP) 7ZzPUSH R3 ON STACK 
MOV R4,~-(SP) 7zPUSH R4 ON STACK 
MOV ERRVEC, ~ (SP) 7:PUSH ERRVEC ON STACK 
MOV ERRVEC +2, -(SP) ;2PUSH ERRVEC+2 ON STACK 
MOV $BASE ,RO 
MOV AGE TBUF ,R2 
MOV MGETINX,RS 
MOV #5$ ERRVEC SETUP FOR TIMEOUT 
MOV #PR6E ,ERRVEC+2 
1$ MOV RMCS2(RO).$TMPO ;GET "NED"" STATUS 
MOV RMCS1(RO),$TMP1 :GET ‘DVA'’ STATUS 
BIT #DVA,STMP1 : DEVICE AVAILABLE ?? 
BNE 3$ YES! 
ADD #4,16(SP) ‘Uni Te ERROR NUMBER IN USER'S 
MOVB #1}2,016(SP) SERROR CALL 
BR 7$ | 
3$ TSTB (RG) ; DONE ?? 
BM] 9$ “Vea... 
MOVB (R4),R1 ;R1 = REGISTER ADDRESS 
BIC #*CTDXMSK,R? ZCLEAR ANY SIGN EXTENSION 


—_— | 


J 14 
ZRMMBO RMOS/3/2 FCINL TST 1 MACRO V046.00 4-APR=-B1 11:43:28 PAGE 17-1 
GET SUBROUTINE 


$2 043054 060001 ADD RO,R1 
53 043056 112403 MOVB (RZ) +,R3 3R3 = STORAGE ADDRESS FOR REGISTFR 
54 043060 042703 177700 BIC #°CIDXMSK,R3 °° s-S CLEAR ANY SIGN EXTENSION 
55 043064 0602023 ADD R2,R3 
56 043066 011113 MOV (RI), (R3) :READ REGISTER 
37 043070 000764 BR 3$ 
59 043072 022626 S$: CMP (SP)+,(SP)+- = RESTORE STACK 
60 043074 062766 000004 000016 ADD #4 ,16(SP) :WRITE ERROR NUMBER IN 
61 043102 112776 000007 000016 MOVB  #7.a16(SP) [USER'S ERROR CALL 
62 043110 ‘162766 000002 000016 7%: SUB #2.16(SP) 
63 043116 105714 aS: TSTB (RS) ;DONE CLEARING?? 
64 043120 100405 BMI 9$ “YES! 
65 043122 005003 CLR R3 ‘CLEAR REMAINING STORAGE 
66 043124 112403 3 MOVB (R4)+,R3 * LOCATIONS 
67 043126 060203 ADD R2,R3 
68 043130 005013 CLR (R3) 
69 043132 000771 BR 
70 043134 9$: 
C43134 012637 0C0006 MOV (SP) +, ERRVEC+2 :zPOP STACK INTO ERRVEC+2 
043140 012637 000004 MOV (SP) +. ERRVEC ::POP STACK INTO ERRVEC 
043144 012604 | MOV (SP) +_R4 ::POP STACK INTO R& 
043146 012603 MOV (SP) +_R3 ::POP STACK INTO R3 
043150 012602 MOV (SP) +_R2 ::POP STACK INTO R2 
043152 012601 MOV (SP)+,R1 -:POP STACK INTO R1 
043154 012600 MOV (SP) +_RO -:POP STACK INTO RO 
71 063156 000207 RTS PC > RETURN 
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PUT SUBROUTINE SEQ 0175 


a 


OF EES cer senate 


! .SBTTL PUT SUBROUTINE 
3 ;THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE 
i, :"PUT INDEX TABLE’ WITH THE CONTENTS OF THE CORRESPONDING 
5 :LOCATION IN THE ‘PUT REGISTER BUFFER''. THE NUMBER OF 
é :REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 
? :BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
: : FOLLOW THE LAST ENTRY. 
SUBROUTINE CALL: 
12 *(1) “PUT INDEX TABLE'’ HAS BEEN LOADED WITH INDEX VALUES 
13 : OF REGISTERS TO BE WRITTEN 
14 >(2) “PUT REGISTER BUFFER CONTAINS CONTENTS OF EACH 
115 : REGISTER TO BE WRITTEN 
16 *{5) JSR PC,PUT 
17 ara, 229 RETURN HERE IF NO ERROR FOUND 
18 : NOP RETURN HERE IF ANY ERROR FOUND 
19 : ERROR SUB DEFINES ERROR NUMBER 
20 2 ??? 
21 : 
22 =RO = REGISTER BASE ADDRESS 
23 “Rl = REGISTER ADDRESS 
24 “R2 = BUFFER BASE ADDRESS 
25 -R3-= BUFFER ADDRESS 
26 . =R4 = POINTER TO REGISTER INDEX 
28 043160 000240 PUT: NOP 
29 043162 010046 MOV RO,-(SP) :z:PUSH RO ON STACK 
045164 010146 MOV R1,~-(SP) ; PUSH R1 ON STACK 
043166 010246 MOV R2,-(SP) 7 zPUSH R2 ON STACK 
043170 010346 MOV R3,-(SP) : :PUSH R3 ON STACK 
043172 010446 MOV R4.-(SP) >PUSH R4 ON STACK 
043174 013746 000004 MOV ERRVEC.-(SP) > =PUSH ERRVEC ON STACK 
043200 013746 006006 MOV ERRVEC+2,-(SP) ::PUSH ERRVEC+2 ON STACK 
30 043204 013700 001276 MOV SBASE , RO 
31 043210 012702 001410, MOV #PUTBUF ,R2 
32 043214 012704 001543 MOV #PUTINX RG 
33 043220 012737 043330 000004 MOV #5$, ERRVEC :SETUP FOR TIMEOUT 
043226 012737 000300 000006 MOV #PR6, ERRVEC+2 
35 043234 016037 000010 001174 1S: MOV RMCS2(RO),$STMPO ;GET ‘NED** STATUS 
36 043242 016037 000000 001176 MOV RMCS1(RO).$TMP1 :GET ‘DVA'’ STATUS 
37 043250 032737 004000 001176 BIT #DVA,$TMP1 ;DEVICE AVAILABLE ?? 
38 043256 001007 BNE 3$ YES! 
39 043260 062766 000004 000016 ADD #4, 16(SP) SWRI Té ERROR NUMBER IN 
0 043266 112776 000112 000016 MOVB  #112.a16(SP) “USER'S ERROR CALL 
41 043274 42 BR 7$ 
42 043276 '10571 3$: TSTB ~—s_ (RG) : DONE ?? 
43 043 10042 BM] 9$ YES! ! 
44 043302 111401 MOVB  _ (R4) RI =R1 = REGISTER ADDRESS 
45 043304 042701 177700 BIC #*CIDXMSK,.R1 :CLEAR ANY SIGN EXTENSION 
46 043310 1 ADD RO,R1 
47 043312 111403 MOVB = (R&),R3 *R3 = STORAGE ADDRESS 
48 043314 042703 177700 BIC #*°CIDXMSK,R3 = CLEAR ANY SIGN EXTENSION 
49 043320 060203 ADD R2,R3 
50 043322 011311 MOV (R3), (R1) :WRITE REGISTER 
105724 STR 3s (RD 4 “ADJUST REGISTER POINTER 


51 043324 


———— 
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54 


60 


_ PUT SUBR 
52 043526 
ie 


043330 


043376 


000763 
022626 
062766 
112776 
162766 


012637 
012637 
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BR 


3$ 


(SP) +, (SP) 
#4,16(SP 
#7,916(SP) 
#2,16°SP) 


(SP)+, ERRVEC+2 
(S?)+, ERRVEC 
(SP) +,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

PC 


L 14 
E 18-1 


sADJUST STACK 


sWRITE ERROR NUMBER IN 


sUSER*S ERROR CALL 


7zPOP STACK INTO ERRVE( +2 
INTO ERRVEC 


3ZPOP STACK 
3zPOP STACK 
3zPOP STACK 
7;zPOP STACK 
3zPOP STACK 
:;POP STACK 
;RETURN 


INTO RG 
INTO R3 
INTO Re 
INTO R1 
INTO RO 
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SIZE CLOCK SUBROUTINE SEQ 0181 
} .SBITL SIZE CLOCK SUBROUTINE 
3 043400 SIZCLK: 
043400 013746 090004 MOV ERRVEC,-(SP) 7ZPUSH ERRVEC ON STACK 
Reecve 013746 MOV ERRVEC+2,=-(SP) 37PUSH ERRVEC+2 ON STACK 
4 043410 012737 043446 000004 MOV #1$, ERRVEC :SET UP FOR BUS TIMEOUT 
5 043416 012737 000300 000006 MOV #PRE, ERRVEC+2 
6 043424 012737 177546 001510 MOV #177546,CLKADR ;LOAD ADDRESSES FOR KW11eL 
7 043432 012737 000100 001512 MOV #100, CLKVCT 
8 043440 005777 136044 TST @CLKADR :TEST FOR KW11=L PRESENT 
9 943444 000421 BR 3$ :YES = KWIl=L IS PRESENT 
10 043446 022626 1$: CMP (SP)+, (SP) + “RESTORE SP 
11 043450 012737 043500 000004 MOV #2$,ERRVEC :SET UP FOR BUS TIMEOUT | 
12 043456 012737 172540 001510 MOV #172540,CLKADR :LOAD ADDRESSES FOR KW11-P CLOCK 
13 043464 012737 000104 001572 MOV #104, CLKVCT 
14 043472 005777 136012 TST @CLKADR :TEST FOR KW11-P PRESENT 
15 043476 000404 BR 3$ -YES = KW11=P IS PRESENT 
16 043500 022626 2$: CMP (SP) +, (SP)+ “RESTORE SP 
fA 04 3902 062766 000002 000004 fs ADD #2,4(5P) :MOVE RETURN TO ERROR 
043510 012637 000006 MOV (SP) +, ERRVEC+2 :zPOP STACK INTO ERRVEC+2 
043514 012637 000004 MOV (SP) +, ERRVEC ::POP STACK INTO ERRVEC 
19 043520 000207 RTS PC :RETURN TO USER 
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LTC ern eae 


TIMEOuT SUBROUTINE SEQ 018, 
: -SBTTL TIMEOUT SUBROUTINE 
3 7 THIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEQUT 
¢ ; GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 
6 S CALL: JSR PC,TIMOUT 
7 : ??? RETURN HERE 
8 043522 TIMOUT : 
43522 010046 MOV RO,-(SP) 3;2PUSH RO ON STACK 
043524 010146 MOY R1,-(SP) 7;23PUSH R1 ON STACK 
043526 010246 MOV R2,-(SP) 32PUSH R2 ON STACK 
043530 013746 000004 MOV ERRVEC,-(SP) 3 PUSH cnet ON STACK 
043534 013746 000006 MOV ERRVEC+2,-(SP) USH ERRVEC+2 ON STACK 
9 043540 012737 043642 000004 MOV #4$,ERRVEC ; SETUP FOR "ws TIMEOUT = 04 TRAP 
10 043546 012737 00030C 000006 MOV #PR6, ERRVEC +2 
11 043554 013700 00127 MOV $BASE, RO ;RO=BASE ADDRESS 
12 043560 013701 001510 MOV CLKADR,R1 3R1=CLOCK ADDRESS 
13 043564 012702 000036 MOV #30.,R2 = R2=NUMBER OF on CYCLES 
14 043570 020127 172540 1$: CMP R1,4172540 :KW11-P CLOCK?? 
15 043574 001003 BNE 2$ NO! 
16 043576 012761 000001 000002 MOV #1,2(R1) :SET COUNTER 
4 et 012711 Q00005 2$: MOV #B1T2'BITO,(R1) :START COUNTER 
19 043610 016046 000000 3$: MOV RMCS1(RO),-(SP) :GET STATUS 
20 043614 042716 177576 BIC #*C<RDY!GO>, (SP) 
21 043620 022726 000200 CMP #RDY, (SP) + :RDY=1, GO=0?? 
22 043624 001420 BEQ S$ YES! 
235 043626 032711 000200 BIT #BIT7,(R1) :TIMER DONE ?? 
of | 04363¢ 001766 BEQ 3$ NO! 
25!'043634 005302 DEC R2 “DEC “NUMBER OF CYCLES 
26 043636 001354 BNE  1$ : CONTINUE IF NOT DONE 
27 043640 000412 BR 5$ :'RDY’* DID NOT SET OR "GO" DID NOT RESET 
28 WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 
29 043642 022626 4S: CMP» (SP) +, (SP) + sADJUST STACK 
30 043644 062766 000004 000012 ADD #4,12(SP) =MOVE SP TO USER'S CALL 
5 043652 112776 000007 000012 MOVB #7,a12(SP) WRITE ERROR NUMBER 
‘2 043660 162766 ' 000002 000012 SUB #2,12°SP) 
3 043666 5$: 
043666 012637 000006 MOV (SP) +, ERRVEC+2 ;POP STACK INTO ERRVEC+2 
043672 012637 000094 MOV (SP)+, ERRVEC :POP STACK INTO ERRVEC 
043676 01260 MOV (SP) +.R2 SIPOP STACK INTO R2 
043700 012601 MOY (SP)+,R1 3;zPOP STACK INTO R17 
043702 012600 MOV (SP)+,RO :zPOP STACK INTO RO 
5 043704 000207 RTs pe “RETURN Td USER 


rere nsseeneee tonite ~ 


OE ET ee ~_ 
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ERROR CHECK SUBROUTINES SEQ 0185 


- SBITL ERROR CHECK SUBROUTINES 


FRASER AAA HATEERERERAEHARERERHEEHEEREHERHHEE RHEE EE EEEES 


~SBTTL PRIMARY ERROR CHECK SUBROUT INE 


; THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
: THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
:FOLLOWING CHECKS ARE MADE: 


CORRECT UNIT IS SELECTED, I.E.. 
“(BITS 025) EQUAL THE UNIT BEING TESTED: 
l. 


SELECTED UNIT IS AVAILABLE. 
: AND NED (BIT 12 OF RMCS2) IS RESET: 


LAST COMMAND WAS COMPLETED, I.£., THE MASSBUS CONTROLLER IS 
SREADY ‘BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
sDRIVE READY BIT (BIT 7 OF RMDS) IS SET. 
i. , atte ey ERROR OCCURRED WHEN READING REMOTE REGISTERS, 
-NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
:1.£.. PAR = 0, OR, PAR = DPE = 1 


THE UNIT SELECT BITS OF RMCS2 


E., DVA (BIT 11 OF RMCS1) IS SET 


Se kt Be tae nd dt ed 
WI OOD YA MP WR = OOW VOM Rw. 


2 ZTHE SUBROUTINE ASSUMES THAT: 

26 : .STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER, 
27 : IN PARTICULAR, RMCS1. RMCS2 AND RMDS HAVE BEEN STORED iN THEIR 
28 : CORRESPONDING LOCATIONS OF THE ‘‘GET’' BUFFER 

30 .(SUNIT) CONTAINS THE DRIVE NUMBER 

32 :THE SUBROUTINE IS CALLED AS FOLLOWS: 

zz, (1) JSR PC. PRIERR 

25 ; BR 273 RETURN HERE IF NO ERROR 

36 : NOP RETURN HERE TO REPORT AN ERROR 
27 : ERROR | ERROR NUMBER DEFINED BY SUB 

38 : JSR PC a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
3? : 239 RETURN HERE IF NO MORE ERRORS 
$1 043706 PRIERR: 

43 CLEAR USER'S ERROR CALL 

44 043706 062716 000004 ADD #4, (SP) :MOVE (SP) TO ERROR CALL 

45 043712 105076 000000 CLRB = a(SP) “CLEAR ERROR NUMBER 

46 043716 162716 000004 3 SUB #4, (SP) :MOVE (SP) TO NC ERROR RETURN 
48 ;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 

49 043722 013737 001344 001142 MOV RMCS21,$BDDAT  :CORRECT UNIT SELECTED?? 

50 043730 042737 177770 001142 BIC #°CUNTMSK,$BDDAT 

51 043736 013737 001234 001140 MOV SUNIT,$GDDAT | ;GOOD DATA FOR TYPEOUT 

$2 043744 042737 177770 001140 BIC #*CUNTMSK, $GDDAT 

53 043752 123737 001140 001142 CMPB  $GDDAT,$BDDAT  ;:COMPARE EXPECTED AND RECEIVED 
54 “DRIVE NUMBERS 

55 043760 001415 BEQ 1$ “YES! ! 

56 043762 062716 000004 ADD #4, (SP) 

57 043766 112776 000001 000000 MOVB #1.a(SP) | -ERROR 1 
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58 043774 
9 044000 
63 044014 


67 044014 


162716 
004736 


000575 


032737 


000002 
000010 
044530 


004000 
001334 


000002 
010000 


001344 


000 
000002 
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001334 


001140 
001140 


_ 001142 


000000 
001344 


001140 


000000 


001534 
001140 
001140 
001140 
001142 


000000 


001334 
001346 
001140 


000000 


C 15 
E 21 


SUB #2, (SP) 
JSR PC’ a(SP)+ 
SUB #10, (SP) 
NOP | 

JMP 10$ 


1$: 


1 
21< 


sMOVE SP TO RETURN FOR ERROR 
sREPORT WRONG UNIT SELECTED 
sRESTORE (SP) 


sSKIP OTHER CHECKS 


sREPORT AN ERROR IF THE a IS NOT AVAILABLE OR IF 


:THE DEVICE 1S NONEXISTA 


le AVAILABLE ?? 
sEXPECTED STATUS 


sRECEIVED STATUS 


#2 
Nor! NED SET?? 


sEXPECTED STATUS 
sRECEIVED STATUS 


:YES ~ CHANGE ERROR NUMBER 
sMOVE SP TO RETURN FOR ERROR 
sREPORT DEVICE NOT AVAILABLE 
sRESTORE (SP) 


sSKIP OTHER CHECKS 


: CONTROLLER READY ?? 


s¥ 
EXPECTED STATUS 


sRECEIVED STATUS 


:MOVE SP TO RETURN FOR ERROR 
sREPORT CONTROLLER NOT READY 
sRESTORE (SP) 


:SKIP OTHER CHECKS 


: DRIVE READY?? 
“EXPECTED STATUS 
:RECEIVED STATUS 


5 
sMOVE SP TO RETURN FOR ERROR 


BIT ADVA, Secs I 
BNE 5$ 
MOV RMCS1I ,$GDDAT 
BIS #DVA,$GDDAT 
MOV RMCS11,$BDDAT 
ADD #4, (SP) 
MOVB #2,a(SP) ZERROR # 
BIT #NED,RMCS21 
BEQ 2$ 
MOV RMCS21,$GDDAT 
MOV RMCS21,$BDDAT 
BIC HNED , SGDDAT 
MOVB #3,a(SP) 
2$: SUB #2, (SP) 
JSR PC,a(SP)+ 
SUB #10, (SP) 
NOP 
BR 10$ 
5$: 
;REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY 
BIT #RDY .RMCSTI 
BNE 
MOV RMCS1I, —" 
BIS ARDY, $GDDAT 
BIC #SC' TRE 'MCPE'GO.$GDDAT 
MOV RMCS11,$8DDAT 
ADD #4, (SP) 
MOVB #4 ,a(SP) ZERROR #4 
SUB #2, (SP) 
JSR PC,@(SP)+ 
SUB #10, (SP) 
NOP 
BR 10$ 
7$: 
;REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE 
BIT #G0,RMCS1I >GO RESET?? 
BEQ $ $. 
BIT A#DRY,RMDSI 
BNE 
MOV RMCS11,$GDDAT 
BIC #SC!TRE'MCPE!GO,$GDDAT 
MOV RMCS11,$BDDAT 
ADD #4,(SP) 
MOVB #5,a(SP) ZERROR # 
SUB #2, (SP) 
JSR PC,a(SP)+ 


sREPORT DRIVE NOT READY 


ene eneeeenee 


- ——— ee 


ee eee 
— 
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115 


Oo 


— ot st 3 ' 


WEWIAN AANA OPO PPR NonNh - — a 
VIEW =O DOONAN WA =O Oom~n 
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161 
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163 


044310 


044316 
044320 


oO 
Ke 
: 
A 
—_ 
* 


044402 


044530 
044534 
044536 


162716 
000240 
000504 


032737 


000010 


020000 


000010 


000010 
000010 
000010 


001543 
000014 


001350 


000002 
000010 
000010 


SUB #10, (SP) sRESTORE (SP) 
NOP 
BR 10$ 
8$: 
;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
:PARITY ON THE MASSBUS CONTROL BUS 
001334 B17 MCP E,RMCS11 PARITY ERROR ?? 
001140 MOV RMCS1I1,$GDDAT EXPECTED STATUS 
001140 BIC #SC' TRE 'MCPE!GO,$GDDAT 
001142 MOV RMCS1I,$BDDAT —:RECEIVED STATUS 
ADD #4, (SP) :;MOVE STACK TO USER'S ERROR 
000000 MOVB #13,a(SP) sERROR #47 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ :REPORT ERROR VIA USER 
SUB #10, (SP) :RESTORE STACK 
NOP 
BR 10$ 
9$: 
;REPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR 
001350 B17 HAR. /RMER1I zWAS THERE A PARITY ERROR?? 
001376 BIT #DPE ,RMER21 :WAS IT THE CONTROL BUS?? 
BNE 11$ :NOT SURE! ! 
001424 BIT #PAR,RMER10 :DID TEST SET PAR ?? 
BEQ 93$ *NO!! 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV #PUTINX,RO :RO POINTS TO INDEX TABLE 
91$: CMB #RMER' , (RO) :SEARCH TABLE FOR RMER1 
MOV (SP)+,RO ::POP STACK INTO RO 
BR 1$ :PAR WAS SET BY TEST 
92$: TSTB (RO) + ‘END OF TABLE?? 
BPL 91$ =NO!! 
MOV (SP)+,RO ::POP STACK INTO RO 
001140 93%: Mov RMER11,$GDDAT ;EXPECTED STATUS 
001140 BIC #PAR, $GDDAT 
001142 MOV RMERII ,$BDDAT _ ;RECEIVED STATUS 
ADD #4,(SP) :MOVE SP’ TO USER'S ERROR CALL 
000000 MOVB  #50.a(SP} :WRITE THE ERROR NUMBER 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ “REPORT THE ERROR 
SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
N 
~ 108: ADD #10, (SP) sRETURN TO ERROR 
11$: NOP a :RETURN TO NO ERROR 


SEQ 0185 
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SECONDARY ERROR CHECK SUBROU’ INE SEQ 0 


~SBTTL SECONDARY ERROR CHECK SUBROUTINE 


>THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 

sSUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
sASSOCIATED WITH THE OPERATION BEING PERFORMED. 

sWHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
sNUMBER TO_THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 

:TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
sMAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


NH O OO NAMES WO OW NO UWP o 


1 
1 

| 

1 “CALL: JSR PC, SECERR 

1 : BR 273 RETURN HERE IF NO ERROR 

; NOP RETURN HERE TO REPORT AN ERROR 

ERROR ERROR NUMBER DEFINED BY SUB 

’ JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
} 727 RETURN HERE IF NO MORE ERRORS 

2 ;NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
22 = INPUT REGISTER BUFFER. , 

2 044540 SECERR: 

26 SERRA EERE EAE RRA EERE ERREER EE 

27 :STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 

28 044540 013737 001410 050374 MOV RMCS10,51 >STORE FUNCTION CODE 

29 044546 042737 177701 050374 BIC W°C<FOTFIIFQ'F3!F4>.515$ 

30 044554 062716 000004 ADD #4, (SP) :MOVE (SP) TO ERROR CALL 

31 044560 105076 000000 CLRB = a SP) “CLEAR ERROR NUMBER 

52 044564 162716 000004 UB #4, (SP) “MOVE (SP) TO NO ERROR RETURN 

34 ,  ebvebeebbapbadendeeebeckanéeden thaddseanbibedéeteeeccaecceeex 


35 : CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 


36 

37 sREPORT ERROR IF DRIVE IS NOT READY, I.E., IF DRY = 0 
38 044570 032737 000200 001346 BIT ADRY ,.RMDSI sDRIVE READY?? 

9 044576 001024 BNE $ iiee: 

40 044600 013737 001346 001142 MOV RMDSI , $BDDAT ;BAD DATA FOR TYPEOUT 
41 044606 2737 177577 001142 Bic #*CDRY , SBDDAT 
42 044614 012737 000200 001140 MOV ADRY , $GDDAT :GOOD DATA FOR TYPEOUT 
43 044622 062716 000004 ADD #4, (SP) 

44 044626 112776 000010 000000 MOVB #10,a(SP) ;ERROR NUMBER 

45 044634 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
46 044640 004736 JSR PC,a(SP)+ sREPORT NOT READY 

47 044642 162716 000010 SUB #10, (SP) sRESTORE (SP) TO ERROR N 
pe 044646 000240 NOP 

50 ;REPORT ERROR IF GO BIT IS NOT RESET 

31 044650 032737 000001 001334 5$: BIT #G0,RMCS1] >GO BIT RESET?? 

52 044656 001423 BEQ 10$ s¥Ee: . 

53 044660 013737 001334 001142 MOV RMCS11,$BDDAT  ;BAD DATA FOR TYPEQUT 
54 044666 042737 177776 001142 BIC #*CGO, $BDDAT 

55 044674 005037 001140 CLR $GDDAT ;GOOD DATA FOR TYPEQUT 
56 044700 062716 000004 ADD 44, (SP) 

57 044704 112776 000011 000000 MOVB #11,a(SP) ;ERROR NUMBER 
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58 
59 


RAR 


97 


ee et eed ee et od od 
BAU OSSNS AR AUS OOW 


044712 
044716 


O 344720 


044724 


044726 


Win & & 
AOONMO%M 


RSRVE 


POR 
oo } 
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CHECK SUBROUTINE 


162716 
004736 
162716 
000240 


013737 


000240 


005037 


162716 


005037 


000002 
000010 


001334 
177701 
050374 
001142 


000004 
000012 
000002 


000010 - 


001140 
001550 


001376 
040000 
001 346 
137777 
001140 
000004 
000047 
000002 


000010 


001140 
001344 
000377 
040000 
000030 


040000 


* 000004 
000014 


000002 
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001346 
0503574 
0017140 
001142 


001142 
001142 


000000 


SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 

=REPORT 

10$: MOV $BDDAT 
BIC #°C76, $BDDAT 
MOV 515$,$GDDAT 
CMP SBDDAT, $GDDAT 
BEQ 15$ 
ADD 4, (SP) 
MOVB #12, a(SP) 
SUB » (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 


SEG 018/ 


sMOVE SP TO RETURN FOR ERROR 
sREPORT DEVICE NOT AVAILABLE 
sRESTORE (SP) 


ERROR " alacsi 1 ose CODE READ FROM DEVICE IS NOT CORRECT 


1S FUNCTION CODE CORRECT?? 


sEXPECTED FUNCTION CODF 
sYES!! 
;ERROR NUMBER 


sMOVE SP TO RETURN FOR ERROR 
sREPORT WRONG FUNCTION CODE 


sRESTORE (SP) 


. 


15$: 
REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
sERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND 


sOTHER ek ARE SET 


20$: 
25$: 


LR GDDAT 

TST RMER1 I 
BNE 20$ 

TST RMER2 I 
BEQ 5$ 3 
BIS HERR, $GDDAT 
MOV RMDSI , SBDDAT 
BIC #°CERR, $BDDAT 
CMP $SGDDAT , SBDDAT 
BEQ 30$ 

ADD #4, (SP) 

MOVB #47 ,a(SP) 

SUB #2, (SP) 

JSR PC ,a(SP)+ 

SUB #10, (SP) 


Argh ‘ERR’ = 0 
:IS RMER1 = 0?? 
:NO!! 


ete RMERZ = 0?? 
TERR SOULD BE SET 


eee VERR™ OK?? 


‘MOVE. SP TO USER'S ERROR 
;WRITE ERROR NUMBER 
:MOVE SP TO ERROR RETURN 


;REPORT INVALID COMP ERROR 


sREPORT AN ERROR IF ‘‘TRE’’ IS SET AND NONE OF THE BITS WHICH SET 


7 TRE 


35$: 
40$: 


oe 

soet TRE [$ SET 

30S: CLR SGDDAT 
MOV RMCS21,-(SP) 
BIC #377 ,(SP)+ 
BNE 35$ 
BIT #ERR,RMDS] 
BEQ 4 
CMP ASEARCH,515$ 
BHIS 40$ 
BIS ATRE ,SGDDAT 
MOV RMCS11,$BDDAT 
BIC #*CTRE,$BDDAT 
CMP $GDDAT , $BDDAT 
BEQ 45$ 
ADD 44,(SP) 
MOVB #14,a(SP) 
SUB #2, (SP) 
JSR PC,a(SP)+ 


:REPORT TRE ERROR 


OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 


sEXPECT ‘‘TRE'' = Q 
>WAS DLT, WCE, UPE, NED, NEM 
;PGE, MXF OR MDPE SET 


» VES?! 

; EP RECEIVED?? 
ZNO! i 
sWAS DATA TRA ED?? 
-NO! i 


:"'TRE'' SHOULD BE SET 
“BAD DATA FOR TYPEOUT 


WAS EXC 








:15_"'TRE'' 0K?? ~ 
YES! 


‘MOE: SP TO USER'S ERROR CALL 
“WRITE ERROR NUMBER rs 
“MOVE SP TO RETURN FOR ERROR 


1§ 045214 
045220 
045222 


INN 


me ee ee rt et mn ns 
DONOMALSWR-O CW no 


PUPRUPOR 


045222 


WAP ro 
Ow 
OO 
> 
WIV 
mnror 
WR 
Of 


1 045236 


045240 


wh tH eH ts) st 

NNANANANA 

MO OWNAWUS WO 
© 
* 
Ww 
Mm 
Ww 
> 


ED PWS 


OOOO 
* 

WII 
wW 
Ww 
Nm 


AADA QMS 
Wh -O OONAUSinnrN-oO 
Pa 
A 


RRRELLE 
=$ 


lm ee ee a aed od od et 2 3 ~~ 
NS we KRAOOO 
TSSRVEABF 
> © 
= * 
wakes) 7 | 
> * 
& | 
S © 


162776 
000240 


010046 
013700 
016037 
012600 


013737 
032737 


000240 


013737 


162716 
005037 


013746 
052716 
013737 
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000019 


050374 
067136 


050566 
040000 


100000 
077777 
001346 
077777 
001140 


000004 
000006 
000002 


000010 


050366 


177776 
40 







000004 
000254 
000002 


000010 
001140 


050366 
137777 
001344 
001142 
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050366 


001140 
001346 


001140 


001142 


900000 


0COQ000 


001142 


45%: 


° ili iaieiet htt tee eee eee eee PPP PPR PPE PSCC ESOESESLESCLALLCLCALA.E. TE 


; USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 


; STATUS 


~s 


~ 


SUB #10, (SP) 


NOP 


.STATUS BITS NOT SET THAT SHOULD BE SET 


SEQ 0188 


SRESTORE (SP) 


» E.G., ATA AND ILF 


.STATUS BITS SET THAT SHOULD NOT BE SET. E. G., WCE AND ECH 
“NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 


CONDITIONS, 


E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 


:WRITE LOCK IS ON AND THE COMMAND IS A WRITE. | 
:GET AND STORE THE ENTRY FROM THE Po AES CODE TABLE 
MOV RO,-(SP) 


:REPORT 
zATA IS 


50$: 


55$: 


sREPORT ERROR IF ILF IS INCORRECT, 


MOV 515$,R0 
MOV FNCDTB(RO) ,500$ 
MOV (SP)+,RO 


PUSH RO ON STACK 
“GET FUNCTION CODE 
;STORE ENTRY 


:;POP STACK INTO RO 


AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF 


NOT SET AND SHOULD BE SET 
MOV 500$,$GDDAT 
BIT AERR,RMDS] 
BEQ 50$ 

BIS HATA, SGDDAT 
BIC #*CATA, $GDDAT 
MOV RMDS1,$BDDAT 
BIC #°CATA, SBDDAT 
CMP $GDDAT , $BDDAT 
BEQ 55$ 

ADD #4, (SP) 

MOVB #6,a(SP) 

SUB #2, (SP) 

JSR PC,a(SP)+ 

SUB #10, (SP) 

NOP 


sWiTH FUNCTION CODE TABLE 








60$: 


:REPORT 


MOV 500$,$GDDAT 
BIC #*CILF ,$GDDAT 
MOV RMER11 , $BDDAT 
BIC #*CILF , SBDDAT 
CMP $GDDAT , $BDDAT 
BEQ ig 
ADD (SP) 


#384. a(SP) 


4 (SP) 









;GET EXPECTED ATA STATUS 


iI COMPOSITE ERROR SET ?? 


4. ee. 

sEXPECT AN ATTENTION 

sSTRIP DONT CARES : 
sGET RECEIVED ATA 


:STRIP DONT CARES 
btn tt OK ?? 


;MOVE SP TO USERS ERROR CALL 
;LOAD ERROR # IN CALL 

:MOVE SP TO ERROR RETURN 
sREPORT ERROR 

sRESTORE SP 


I.E., IF ILF DOES NOT COMPARE 


sGET EXPECTED ILF 
;CLEAR ALL OTHER BITS 
;GET RECEIVED ILF 
> CLEAR ALL ay BITS 


ES 
;MOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER IN CALL 
sMOVE SP TO ERROR RETURN 


SP) + :REPORT ‘ERROR AND RETURN 
SUB #10, :MOVE SP TO NO ERROR 
CLR $GDDAT sCLFAR EXPECTED STATUS 
AN ERROR, IF WCE IS SET AND SHOULD NOT BE SET 
MOV 500$,-(SP :GET WCE STATUS ENABLE 
BIS #ACWCE , SP) :SET ALL OTHER BITS : 
MOV RMCS21,$BDDAT :RECEIVED STATUS i 
BIC (SP)+,$BDDAT CLEAR WCE IF ENABLED 


—~ 
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oe ~ ees eee wee 


172 045456 001412 BEQ 90$ ;BRANCH IF WCE OK 

173 045469 062716 (600004 ADD 44, (SP) sMOVE SP TO USER'S ERROR CALL 
174 065464 112776 000026 000000 MOVB #26 ,a(SP) ;WRITE ERROR NUMBER 

175 045472 162716 00000 SUB #2, (SP) sMOVE SP TO ERROR RETURN 

176 045476 004736 JSR PC,a(SP)+ ;REPORT ERROR 

177 045500 162716 900010 SUB #10, (SP) :RESTORE ERROR 

ha 045504 90$: 

180 ;REPORT a IF OP] STATUS IS SET AND SHOULD NOT BE SFT 

187 045504 013746 050366 MOV 500$, ) ;GET OPI STATUS ENABLE 

182 045510 052716 157777 BIS #COPI, (SP) ;SET ALL OTHER BITS 

183 045514 013737 001350 001142 MOV RMER1I,$BDDAT ;GET RECEIVED STATUS 

184 045522 042637 001142 BIC (SP) +, $BDDAT ;CLEAR OPI IF ENABLED 

185 045526 001412 BEQ 100$ :BRANCH IF OPI OK 

186 045530 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
187 045534 112776 000164 000000 MOVB #164 ,a(SP) ;WRITE ERROR NUMBER IN CALL 
188 045542 162716 000002 SUB #2,(SP) ;MOVE SP TO ERROR RETURN 

189 045546 004736 JSR PC ,a(SP)+ ;REPORT ERROR 

190 045550 162716 000010 SUB #10, (SP) sRESTORE SP 

sh 045554 100$: 

193 sREPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF ive IS 
194 :SET AND VV IS NOT RESET 

195 045554 013746 050366 MOV 500$,-(SP) ‘eT oe STATUS ENABLE 

196 045560 032737 000100 001346 BIT 4#VV,RMDSI i1S VV SET 

197 045566 001402 BEQ 105$ say. 

198 045570 042716 010000 BIC #IVC, (SP) ;YES - IVC SHOULD BE 0 

199 045574 052716 167777 105$: BIS A“*CIVC, (SP) :SET ALL OTHER BITS 

200 045600 013737 001376 001142 MOV RMER21,$BDDAT :GET RECEIVED STATUS 

201 045606 042637 001142 BIC (SP) +, $BDDAT :CLEAR IVC IF ENABLED 

202 045612 001412 BEQ 110$ ;BRANCH IF IVC OK 

20$ 045614 062716 000004 ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
204 045620 112776 000165 090000 MOVB n165, @(SP) ;WRITE ERROR NUMBER IN CALL 
205 045626 162716 000002 SUB #2, (SP) sMOVE SP TO ERROR RETURN 

206 045632 004736 JSR PC, a(SP)+ ;REPORT ERROR 

707 045634 162716 000010 SUB #10, (SP) ;RESTORE SP TO NO ERROR 

pe 045640 110$: 

210 ;BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
211 ; ALL WRITE ERRORS, I.E., 

212 ; RMER1 - WLE, WCF 

213 ; RMERe ~ DPE 

214 RMCS2 - UPE. 

215 “EACH OF THESE ERRORS IS eee TO SEE IF AN ERROR IS SET WHEN THE 
si$ ;WRITE ERROR ENABLE BIT IS RESET 

218 sREPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 
219 ;THE DRIVE IS NOT WRITE PROTECTED 

220 045640 012746 177777 . MOV #-1,-(SP) ;ASSUME WRITE ERRORS ENABLED 
221 045644 032737 004000 050366 BIT #WLE , 5008 : ARE (WRITE ERRORS ENABLED ?? 
222 045652 001404 BEQ 115$ NO 

223 045654 032757 004000 001346 BIT AWRL,RMDSI 715 HE DRIVE WRITE PROTECTED ?? 
224 045662 001002 BNE 120$ YES 

225 045664 042716 004000 115$: BIC AWLE, (SP) ‘RESET “WLE ENABLE 

226 045670 013737 001350 001142 120%: Moy RMERII,$BDDAT ;GET RECEIVED STATUS 

227 045676 042637 001142 BIC (SP)+,$BDDAT :CLEAR WLE IF ENABLED 

228 045702 001412 BEQ 125$ ;BRANCH IF WLE OK 


raat TT _ scmemsnteteaisnmtietinemmne 


ACIS 


ee pat neste 


239 


2 

277 
278 
279 
280 


281 
282 
283 
284 
285 


045730 


045730 


046010 


046010 


046070 


046070) 


046136 
046142 
046144 
046150 


046150 
046154 
046160 
046166 


162716 


012746 
032737 


162716 


012746 


162716 


012746 


013746 
052716 
013737 
042637 
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GQ0025 
000002 


000010 


177777 
004000 


000040 
007350 
001142 


000004 
000025 
000002 


000010 


177777 
004000 


000010 
001376 
001142 


000004 
000040 
000002 


000010 


177777 
004000 


020000 
001344 
001142 


000004 
000024 


~ 000002 


000010 


050366 


001142 
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ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB  #2%,a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO ERROR RETURN 
JSR PC’ a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) :RESTORE SP TO NO ERROR 
125$: 
:REPORT ERROR IF WCF IS SET AND WRITE ERRORS ARE NOT ENABLED 
: MOV #-1,-(SP) ; ASSUME WRITE ERRORS ENABLED 
050366 BIT at 500$ ;ARE WRITE ERRORS ENABLED ?? 
BNE 130$ YES 
BIC HWCF, (SP) DISABLE WCF ERROR 
001142 130%: MOV RMER1I,$BDDAT  :GET RECEIVED STATUS 
BIC (SP) +, $BDDAT SRESET WCF IF ENABLED 
BEQ 135$ sBRANCH IF WCF OK 
ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
000000 MOVB #25,a(SP) ;WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC, a(SP)+ “REPORT ERROR 
SUB #10, (SP) *RESTORE SP TO NO ERROR . 
135$: 
;REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) : ASSUME WRITE ERRORS ARE ENABLED 
050366 BIT #WLE, 500$ SARE WRITE ERRORS ENABLED ?? 
BNE 140$ “YES 
BIC #DPE , (SP) RESET DPE ENABLE 
001142 140%: MOV RMER2I,$BDDAT  :GET RECEIVED STATUS 
BIC (SP) +, $BDDAT :RESET DPE IF ENABLED 
BEQ 145$ :BRANCH IF DPE Ok 
ADD #4, (SP) :-MOVE SP TO USERS ERROR CALL 
0c0000 MOVB #40,a(SP) :WRITE ERROR NUMBER JIN CALL 
SUB #2, (SP) ;MOVE SP TO ERROR RETURN 
JSR PC, a(SP)+ *REPORT ERROR 
SUB #10, (SP) “RESTORE SP TO NO/ERROR 
145$: / 
;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
MOV #~1,-(SP) : ASSUME WRITE ERRORS ARE ENABLED 
050366 BIT wat. 5008 SARE WRITE ERRORS ENABLED ?? 
BNE 150$ YES 
BIC #UPE , (SP) ‘ OTSABLE UPE ERROR 
001142 150%: MOV RMCS2] ,$BDDAT  :GET RECEIVED STATUS 
BIC (SP) +, $BDDAT “RESET UPE IF ENABLED 
BEQ 155$ ;BRANCH IF UPE OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB #24.a(SP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC. ofS :REPORT ERROR AND RETURN 
SUB #10, (SP) -MOVE SP TO NO ERROR 
155$: \ 
:REPORT AN ERROR IF IAE Is SET AND IS NOT ENABLED 
MOV 500$,- :GET IAE ENABLE 
BIS HACIAE, SP) “SET ALL OTHER BITS 
001142 MOV RMER1I].$BDDAT GET RECEIVED STATUS 
BIC (SP)+, SBDDAT  :CLEAR IAE IF ENABLED 


eee ee Re = 


CZRMMBO RMOS/35/2 FCTINL TST 1 


SECONDARY ERROR CHECK SUBROUTINE 


286 046172 
287 046174 


09 
310 046220 


364 
342 046372 


001412 


162716 


012746 
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032737 
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000166 
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000010 


177777 
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001544 
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177777 
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001142 
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050566 
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BEQ a 

ADD #4, (SP) 
MOVB #166, a (SP) 
SUB #2, (SP) 
JSR PC ,a(SP)+ 
SUB #10, (SP) 


sBRANCH IF JAE IS 0 

sMOVE SP TO USERS ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO ERROR RETURN 
sREPORT ERROR AND RETURN 
abe sMOVE SP 10 NO ERROR 


:BIT 09 (AOE) OF THE © ate ed CODE TABLE IS THE ENABLING BIT FOR 
; ALL READ/WRITE ERRORS, 
Z RMCS1 = TRE 


; RMCS2 =- DLT,NEM,MXF 
: RMDS = LBT 
Re RMER1 = AOE 


: LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
: CYLINDER REGISTER IS WRITTEN 


a AOE CANNOT BE SET IF LBT IS NOT ALSO SET 
: "TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 


REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
MOV #=-1,-(SP) sASSUME ERRORS ARE ENABLED 
BIT va0k, 5008 ¢ ARE ERRORS ENABLED ?? 
165$ YES 
BIC ADLT, (SP) 


CRESET. DLT ENABLE 


165$: MOV = RMCS21,$BDDAT GET RECEIVED STATUS 
BIC (SP)+,$BDDAT CLEAR DLT IF ENABLED 
BEQ , 1708 BRANCH IF DLT IS Ok 
ADD | #4, (SP) ;MOVE SP TO USERS ERROR CALL 


:WRITE ERROR NUMBER IN CALL 
;MOVE SP TO ERROR RETURN 
sREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


MOVB #32 ,a(SP) 

SUB #2, (SP) 

JSR PC ,a(SP)+ 

SUB #10, (SP) 
170$: 


REPORT Stiga IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 


#-1.-(SP) ;ASSUME ERRORS ARE ENABLED 
BIT #AOE , 500$ GARE ERRORS ENABLED ?? 
BNE 175$ YES 
BIC #NEM, (SP) Saar LE NEM 
175$: MOV RMCS21,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR NEM IF ENABLED 
BEQ 180$ *BRANCH IF NEM IS OK 
ADD #4, (SP) -MOVE SP TO USERS ERROR CALL 
MOVB  #167,a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO ERROR RETURN 
JSR PC-a(sP + “REPORT ERROR AND RETURN 
| SUB #10, (SP “MOVE SP TO NO ERROR 


180$: 


sREPORT ERROR IF MXF IS al AND READ/WRITE ERRORS ARE NOT ENABLED 
MOV #=-1 ,-(SP) sASSUME ERRORS ARE ENABLED 
BIT #AOE , 500$ sARE DATA ERRORS ENABLED ?? 
BNE 185$ SYES |! 


-_ Se ee sl ENS 
ee Eee 
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SECONDARY ERROR 


343 046374 


046530 
046556 
046540 
046546 


598 046626 
399 0466352 


CHECK SUBROUTINE 


162716 


012746 


162716 


032737 
001403 
042737 


012746 
032737 


601000 
601344 
001142 
090004 
000033 
000002 
000010 


177777 
001000 


002000 
001000 
001350 
001142 
000004 
000020 
000002 


000010 


002000 
000200 


177777 
000200 


000400 
001350 
001142 
000004 
000035 
000002 
000010 


000206 
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MACRO V04.00 
BIC #MXF . (SP) ;DISABLE MXF ERROR 
601142 185%: MOV RMCS21,$BDDAT - :GET RECEIVED STATUS 
| BIC (SP) +,$BDDAT :CLEAR MXF IF ENABLED 
BEQ 190$ ;BRANCH IF MXF IS OK 
ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
000000 MOVB #33,a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) ‘MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) ‘MOVE SP TO NO ERROR 
190$: 
;REPORT ERROR IF AOE Is SET AND DATA ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) :ASSUME DATA ERRORS ARE ENABLED 
050366 eI! wack ,500$ :ARE | f DATA ERRORS EANBLED ? 
001346 BIT #LBT,RMDSI :1S LBT ALSO SET ?? 
BNE 195$ YES 
| 191$: BIC #AOE , (SP) ‘ DISABLE AOE 
001142 195%: MoV RMER11,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT >CLEAR AOE IF ENABLED 
) BEQ 200$ *BRANCH IF AOE IS OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB #20,a(SP) :WRITE ERROR NUMBER 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) :MOVE SP TO NO ERROR 
200$: 
;BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
-HEADER ERRORS, I.E. 
: RMER1 - HRC, “HCE ,FER 
: RMER2 - BSE 
;RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 
001366 BIT #HC1,RMOF I :IS HCI SET ?? 
BEQ 2018 sNO !! 
050366 vel BIC #HCE , 5008 :YES = DISABLE ALL HEADER ERRORS 
;REPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) :ASSUME ERRORS ENABLED 
050366 BIT mck, 5008 ;ARE HEADER ERRORS ENABLED ?? 
BNE 205$ YES 
BIC #HCRC, (SP) ‘ OTSABLE HCRC 
001142 205%: MoV RMERII,$BDDAT :GET RECEIVED STATUS 
BIC (SP) +, $BDDAT :RESET HCRC IF ENABLED 
BEQ 2108 “BRANCH IF HCRC IS OK 
ADD WG, (SP) :MOVE SP TO USERS ERROR CALL. 
000000 MOVB 435. a( SP) ‘WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) *MOVE SP TO NO ERROR 
210$: 
;REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) :ASSUME ERRORS ENABLED 
050366 BIT #HCE , 500$ “ARE ERRORS ENABLED 7? 


400 946640 


00 
409 046702 
410 046706 


414 046712 
415 046720 
416 046722 
417 046726 
418 046734 
419 046740 
420 046742 
421 046746 
422 046754 
423 046760 
424 046762 
425 046766 


439 047042 
440 047046 


451 047046 
452 047052 
453 060 


456 047074 


004736 
162716 


012746 
032737 
001002 


162716 


012746 


162716 
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000200 
001350 
001142 
000004 
000036 
000002 
000010 


177777 
000200 


000020 
001350 
001142 


000004 
000037 
000002 


000010 


177777 
000200 


100000 
001376 
001142 


000004 
000354 
C00002 


000010 


177777 
000100 
000400 
001 73 
001142 
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001142 


000000 


050566 


001142 


000000 


050366 


001142 


000000 


050566 


001142 


SEQ 0193 
BNE 215$ sVES |! 
BIC #HCE, (SP) _ SDISABLE HCE 
215$: MOV RMER1I1,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  ;CLEAR HCE IF ENABLED 
BEQ 220$ ;BRANCH IF HCE IS Ok 
ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 
MOVB  #36,a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ REPORT ERROR AND RETURN 
SUB #10, (SP) :MOVE SP TO NO ERROR 
220$: 
:REPORT ERROR IF FER 1S SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(S5P) ASSUME FER IS ENABLED 
BIT #HCE, 500$ ;ARE HEADER ERRORS ENABLED ?? 
BNE 225$ YES 
BIC #FER, (SP) ‘OI SABLE FER 
225$: MOV RMER1I,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :RESET FER IF ENABLED 
BEQ 230$ :BRANCH IF FER OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVB  #37.a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ :REPORT ERROR AND RETURN 
SUB #10, (SP) -MOVE SP TO NO ERROR 
230$: 
:REPORT ERROR IF BSE Is SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #~1,-(5P) :ASSUME ERRORS ENABLED 
BIT #HCE . S00$ ;ARE THEY ENABLED ?? 
BNE 275$ “YES 
BIC #BSE , (SP) ‘DISABLE BSE 
235%: MOV RMER21,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR BSE IF ENABLED 
BEQ 2408 :BRANCH IF BSE OK 
ADD (SP) :MOVE SP TO USERS ERROR CALL 
MOVB aba a<sP) “WRITE ERROR NUMBER 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ sREPORT ERROR AND RETURN : 
SUB #10, (SP) =MOVE SP TO NO ERROR 
2408: 
BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
FIELD ERRORS . ae 
; RMCS2 - MDPE 
we AMER - DCK,ECH 
; ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
:DCK IS SET. 
;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 
MOV #-1,-(SP) :ASSUME ENABLED 
BIT WECH, 500$ ; ARE DATA FIELD ERRORS ENABLED 7? 
BNE 245$ “YES 
BIC #MDPE , (SP) ‘OI SBALE MDPE 
245$: MOV RMCS2I,$BDDAT  :GET RECEIVED STATUS 


BIC (SP)+,$BDDAT :CLEAR MDPE IF ENA3LED i 


Se en 


457 047100 


460 047114 
461 047120 
462 047122 
463 047126 
464 

465 

466 047126 
467 047132 
468 047140 
469 047142 
470 047146 
471 047154 
472 047160 
473 047162 
474 047166 
475 047174 
476 647200 
477 047202 
478 047206 


495 047262 
496 047266 
497 047274 
498 047300 
499 047302 
500 047306 


162716 


012746 
032737 


162716 


012746 
032737 
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000004 
000027 
000002 


000010 


177777 
000100 


100000 
001350 
001142 
000004 
000030 
000002 


000010 


177777 
000100 


004000 
100000 


la 
200081 


000010 


MACRO V04.00 


000000 


050366 


001142 


000000 


050366 
001366 
001350 


001142 


000000 


250$: 
sREPORT 


25538: 


260$: 
:REPORT 


265$: 
270$: 


275$: 
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BEQ 250$ ;BRANCH IF MDPE Ok 

ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 
MOVB #27.a(SP) ;WRITE ERROR NUMBER IN CALL 
$UB #2, (SP MOVE SP TO ERROR RETURN 
JSR PC“ a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) :MOVE SP TO NO ERROR 


DATA FIELD ERRORS ARE NOT ENABLED 


ERROR IF DCK + SET AND 
MOV P) sASSUME ENABLED 


BIT #ECH, 5008 “ARE THEY ENABLED ?? 

BNE 255$ s¥es. i! 

BIC #DCK, (SP) :DISABLE DCK 

MOV ’ RMER11,$BDDAT ;GET RECEIVED STATUS 

BIC (SP)+,$BDDAT ;CLEAR DCK IF ENABLED 

BEQ 260$ ;BRANCH IF DCK IS OK 

ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
pO #30,a(SP) ;WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC, a(SP)+ ;REPORT ERROR AND RETURN 
SUB #10, (SP) “MOVE SP TO NO ERROR 


ERROR IF ECH IS SET AN 

DATA FIELD ERRORS ARE NOT ENABLED, OR 

ECI IS SET. OR 

DCK IS NOT SET. 

MOV #-1,-(SP) sASSUME ENABLED 

BIT #ECH, 500$ 7 ARE ERRORS ENABLED ?7 

BEQ 265$ :NO 

BIT #ECI,RMOF | iI Ect SET ?? 

BNE 265$ ;YES 

BIT : ADCK,RMER1 I 238 DC ASO SET ?? 

BNE 270% ;YES 

BIC MECH, (SP) ‘DISABLE ECH 

MOV RMERTI,$BDDAT ;GET RECEIVED STATUS 

BIC (SP) +,$BDDAT :CLEAR ECH IF ENABLED 

BEQ 275$ ;BRANCH IF ECH IS OK 

ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVB #31,a(SP) WRITE ERROR NUMBER IN CALL 
SUB - #2,(SP) sMOVE SP TO ERROR RETURN 
JSR PC ,a@(SP)+ sREPORT ERROR AND RETURN 
SUB #10, (SP) sMOVE SP TO NO ERROR 


LLL LLL LT ae: 
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SECONDARY ERROR CHECK SUBROUTINE 


Ne Se eet 
MO ODDWNAME WHO OM NOWD wr -a 


MMMM 
wr 


047306 
047314 
047316 


047322 


047366 
047372 


047374 


047414 
047422 
047430 
047432 


047440 


022737 
103402 
000137 


013737 


000240 


013737 


0637357 
032737 
001403 
013737 


023757 
001416 


000240 


005046 
013746 
163716 


012746 


022426 


000030 
050340 


001336 
040000 
000004 
000015 
001140 
000002 


000010 


001336 
001412 
001140 
001414 
000010 
001414 
001140 


001340 


000002 
000010 


001336 
001412 


000400 
000002 


000002 


000004 
000002 
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050374 


001142 
001334 


000000 


001140 
001140 


001140 
001344 
001140 
001340 
001142 
000000 


001410 


5 
3 


‘iii ttt ee eee ee eee eee PPP PRR RSS EES ESSESLELCLLOCLC&CCCCL.C.e SS Ee 


: *PERF ORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


elelaielieieietetett tt tt et ete eee REPRE EERE SEES ESESLALOCLLCLLLCLCLCL.A. ETE 


:COMPUTE EXPECTED SECTOR. 


:WAS DATA TRANSFERRED ? 
- YES 


sNO - EXIT 


a IF RMwC NOT ~~ AND TRE IS ZERO 


as” COUNT ZERO?? 

: TRANSFER ERROR DETECTED?? 
SYED: | 

;ERROR NUMBER 

:GOOD DATA FOR TYPEOUT 

sMQVE SP TO RETURN FOR ERROR 


sREPORT WORD COUNT NOT ZERO 
sRESTORE (SP) 


;GET WORD COUNT AT END OF TRANSFER AND 
: SUBTRACT STARTING WORD COUNT. 
“% 


:ADD STARTING BUS ADDRESS 

{WAS BUS ADDRESS INHIBIT (BAI) SET 22 
: ADDRESS SHOULD NOT HAVE CHANGED 

:BUS ADDRESS 0k?? 

‘BAD DATA FOR TYPEOUT 

{MOVE “SP-TG. RETURN FOR ERROR 


sREPORT UNEXPECTED ADDRESS 
sRESTORE (SP) 


— TRANSFERRED FROM WORD COUNT 


TRACK 


sNUMBER OF SECTORS TRANSFERRED 
:GET WORD COUNT AT END OF a AND 
; SUBTRACT STARTING WORD COUN 


sASSUME 256. WORDS PER SECTOR 
“HEADER & DATA COMMAND ?? 


sNO !! 

;CHANGE TO 258. WORDS PER SECTOR 
; INCREMENT SECTOR COUNT 

; SUBTRACT ONE SECTOR'S WORTH 
CONTINUE IF NOT DONE 

-RESTORE STACK 


AND CYLINDER ADDRESS FROM 


CMP ASEARCH,515$ 
BLO 280$ 
JMP 355$ 
sREPORT 
280$: RMWC I, S$BDDAT 
BEQ 285 
BIT ATRE,RMCS1I 
BNE 285$ 
ADD #4, (SP) 
MOVB #15,a(SP) 
CLR $GDDAT 
SUB #2, (SP) 
JSR PC, ,a(SP)+ 
SUB #10, (SP) 
NOP 
;REPORT ERROR IF RMBA IS NOT CORRECT 
285$: MOV RMWCI ,$GDDAT 
SUB RMWCO, $GDDAT 
ASL $GDDAT 
ADD RMBAO , $GDDAT 
BIT #BAI ,RMCS2] 
BEG 290$ 
MOV RMBAO , $GDDAT 
2908: CMP SGDDAT ,.RMBAI 
BEQ 2958 
MOV RMBAI , SBDDAT 
ADD #4, (SP) 
MOVB #16,a(SP) 
SUB #2, (SP) 
JSR PC,a(SP)+ 
SUB #10, (SP) 
NOP 
COMPUTE NUMBER 
CLR 
MOV “RMWCI,-(SP) 
SUB RMWCO, (SP) 
MOV #256. ,-(SP) 
BIT #BIT1,RMCS10 
BEQ 300% 
ADD #2,(SP) 
300$: INC 4(SP) 
SUB (SP) ,2(SP) 
BGT 300$ 
CMP (SP)+, (SP)+ 


SEQ 0195 


eee Eee 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0196 
:NUMBER OF SECTORS 
59 067552 013737 001444 050366 MOV RMDCO.5O00$ = =; STORE ORIGINAL CYLINDER 
047560 013737 001416 050370 MOV RMDAO, 505$ ZSTORE ORIGINAL TRACK 
61 047566 013737 001416 050372 MOV RMDAO, 510$ :STORE ORIGINAL SECTOR 
62 047574 013737 001332 050376 MOV LSTRK,520$ :STORE LAST TRACK, 
63 047602 000337 050376 SWAB sé 20 :GET TRACK ADDRESS TO LO BYTE AND 
64 947606 005237 050376 INC 520$ : INCREMENT TO GET TOTL # OF TRACKS. 
66 047612 042737 000377 050370 BIC #°C<TADMSK>, 505$ ;SAVE TRACK ADDRESS BITS AND 
67 047620 000337 050370 SWAB 4=Ssé«éS05$ ;SWAP TRACK ADDRESS TO LOW BYTE. 
68 047624 042737 177490 050372 BIC #*°C<SADMSK>,510$° :SAVE SECTOR ADDRESS BITS 
34 047632 062637 050372 ADD (SP)+_,510$ 
71 047636 023727 050372 000040 310%: cmp 510$,#32. : SECTOR OVEF LOWED?? 
72 047644 103406 BLO 315$ iN 
73 047646 005237 050370 INC 505$ SU NCREMENT TRACK 
74 047652 162737 000040 050372 SUB #32.,510$ :ADJUST SECTOR 
ie 047650 000766 BR 310$ :TRY AGAIN 
77 047662 023737 050370 050376 315%: cMP 505$, 520$ : TRACK OVERFLOWED?? 
78 047670 103407 BLO 320$ “NO! 
79 047672 005237 050366 INC 500$ cTNCREMENT CYLINDER 
80 047676 163737 050376 050370 SUB 520$,505$ “ADJUST TRACK 
47704 000766 7 BR 315$ “TRY AGAIN 
82 7706 000240 NOP 
84 -REPORT ERROR IF "‘LBT'' IS NOT CORRECT 
85 047710 3208: 
86 047710 905037 001140 CLR $GDDAT :SET GOOD DATA FOR LBT = 0 
87 047714 023727 050366 001466 CMP 500$,4822. :SHOULD LBT BE SET?? 
88 047722 101407 BLOS 32 =NO!! 
89 047724 032737 002000 901350 BIT #IAE.RMER1I sWAS IAE SET ?? 
90 047732 001003 BNE 325$ :YES - LBT SHOULD NOT BE SET 
91 047734 012737 002000 001140 MOV #LBT .SGDDAT :SET GOOD DATA FOR LBT = 1 
92 047742 013737 001346 001142 325$: MoV RMDSI.$BDDAT — :BAD DATA FOR TYPEOUT 
93 047750 042737 175777 001142 BIC #*CLBT, $BDDAT 
7756 023737 001140 001142 CMP $GDDAT, $BDDAT :IS LBT CORRECT?? 
95 047764 001413 BEQ 330$ 7YES!! 
96 047766 062716 000004 ADD #4, (SP) 7 
97 047772 112776 000617 000000 MOVB = #17«. a(SP) :ERROR NUMBER : 
98 050000 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR® 
99 050004 004736 JSR PC a(SP)+ ;REPORT LBT IS WRONG 
100 05 162716 000010 SUB #10, (SP) “RESTORE (SP) 
101 050012 000240 NOP 
103 -REPORT ERROR IF ‘‘AOE’' IS INCORRECT 
106 050014 005037 001140 330$: | CLR $GDDAT -SET FOR AOE = 0 
105 050020 032737 002000 001350 BIT #IAE,RMER1] “WAS ""IAE'’ DETECTED?? 
106 050026 001031 BNE 340$ = YES-"'AOE'' SHOULD BE ZERO 
107 050030 023727 050366 001466 CMP 500$, 4822. ;SHOULD AOE BE SET 
108 050036 101425 BLOS  340$ NO! 
109 050040 005737 050370 TST 505$ “MAYBE 
110 050044 001012 \ BNE 335$ YES 
111 05 005737 050372 TST 510$ 
112 050052 001007 BNE 335$ “YES |! 
173 050054 032737 000010 050374 BIT #F2,515$ :WAS THIS READ OR WRITE CHECK 7? 
114 050062 001413 BEQ 340$ NO 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0197 


a SE ee Se eee 


-——_—— 


een a 


11§ 050064 005737 001336 TST RMWC I : WAS ALL DATA TRANSFERRED ?? 
116 050070 001410 BEQ 340$ YES 
117 050072 012737 001000 001140 335$: mov HAOE , SGDDAT SET For AOE = 1 
118 050100 005037 050370 CLR 505$ :CLEAR EXPECTED TRACK 
119 9050104 012737 000001 050372 MOV #1,510$ “EXPECT SECTOR = 1 
126 050112 013737 001350 001142 3408: MOV RMER11,$BDDAT “BAD DATA FOR TYPEOUT 
121 050120 042737 176777 001142 BIC #*CAOE . $BDDAT 
122 050126 023737 001140 001142 CMP $GDDAT,$BDDAT  ;1S AOE CORRECTY?? 
123 0501346 001413 BEQ 345$ YES! ! 
124 050136 062716 000004 ADD #4, (SP) 
125 050142 112776 000020 000000 MOVB #20,a(SP) : ERROR NUMBER 
126 050150 162716 000002 SUB #2, (SP) =MOVE SP TO RETURN FOR ERROR 
127 050154 004736 JSR PC a(SP)+ =REPORT AOE IS WRONG 
128 050156 162716 000010 SUB #10, (SP) “RESTORE (SP) 
129 050162 000240 NOP 
131 ;REPORT ERROR IF RMDA IS NOT CORRECT 
132 050164 032737 002000 001350 %345$: BIT #IAE.RMER1! ;WAS THERE AN IAE ERROR ?? 
133 050172 001062 BNE 355. -YES = DONT. CHECK RMDA.RMDC 
134 050174 013737 050370 001140 MOV 505$,$GDDAT * SETUP EXPECTED DISK ADDRESS 
135 050202 000337 001140 SWAB =—« $GDDAT 
136 050206 113737 050372 001140 MOVB 510%, $GDDAT 
137 050214 013737 001342 001142 MOV RMDAI,$BDDAT § ;:SETUP RECEIVED DISK ADDRESS 
138 050222 023727 001140 001142 CMP $GDDAT,$BDDAT =COMPARE EXPECTED & RECEIVED 
139 050230 001413 BEQ 350$ *BRANCH IF EQUAL 
140 050232 062716 000004 ADD #4, (SP) 
141 050236 112776 000021 000000 MOVB  #21.a(SP) : ERROR NUMBER 
142 050244 162716 000002 SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
143 050250 004736 JSR PC ,a(SP)+ ‘SREPORT BAD DISK ADDRESS 
144 050252 162716 00C010 SUB #10, (SP) “RESTORE (SP) 
145 050256 000240 NOP 
6 
147 :REPORT ERROR IF RMDC IS INCORRECT 
148 050260 013737 050366 001140 %50$: Moy 500$, $GD DAT : SETUP EXPECTED CYLINDER 
149 050266 042737 176000 001140 BIC erCrere SeDD 
150 050274 013737 001370 001142 MOV RMDCI, SSDDAT :SETUP RECEIVED CYLINDER 
151 050302 023737 001140 001142 CMP $GDDAT,$BDDAT :=COMPARE CYLINDERS 
152 050319 001413 BEQ 355$ =BRANCH IF EQUAL 
153 050312 062716 000004 ADD #4, (SP) 
154 050316 112775 000022 000000 MOVB #22,a(SP) :ERROR NUMBER 
155 050324 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
156 050330 004736 JSR PC. a(SP)+ “REPORT BAD CYLINDER 
157 050332 162716 000010 SUB #10, (SP) “RESTORE (SP) 
158 050336 000240 NOP 
— 160 050340 062716 000004 355$: ADD #4, (SP) sMOVE (SP) TO ERROR CALL 
161 050344 105776 000000 TSTB.—s @( SP) “WAS ERROR FOUND?? 
162 050350 001403 REQ 360$ 
163 050352 062716 000004 ADD #4, (SP) :MOVE (SP) TO ERROR RETURN 
164 050356 000402 BR 365$ 
165 050360 162716 000004 360$: SUB #4, (SP) sMOVE (SP) TO NO ERROR RETURN 
166 050364 000207 365$: RTS PC 
168 050366 000000 500$: .wWwORD 0. = CYLINDER 
169 050370 000000 505$:  .WORD - 0 > TRACK 
170 050372 000000 510$: .wWwORD 0 =SECTOR 
171 050374 000000 515$: (WORD 0 “FUNCTION CODE 


es 
ee ee ee — 
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_ SECONDARY ERROR CHECK SUBROUTINE 


172 050376 000000 


a ee - 


520$: .wORD 0 TOTAL # OF TRACKS 


LAST TRACK #1 


SEQ 0198 
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005737 
001420 
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001176 


001200 
001200 


001142 


000000 


001142 


000000 


-SBTTL 


COMPOSITE ERROR CHECK SUBROUTINE 


s THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
>RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
>MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 

;THE MASKS ARE APPLIED. 


: CLEAR ee ERROR CALL 


SSEE IF 


sSté = IF 


é CALL 3 
341) JSR PC, CMPERRSTS 
; . WORD MASK FOR ERROR REGISTER 1 
; . WORD MASK FOR ERROR REGISTER 2 
; BR ?7? RETURN HERE IF NO ERROR 
; NOP RETURN HERE TO REPORT AN ERROR 
; ERROR ERROR NUMBER DEFINED BY SUB 
JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
ive RETURN HERE IF NO MORE ERRORS 
sNOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
:BE ZERO 
CMPERRSTS: 
sMASK AND STORE THE CONTENTS OF RMER1 AND RMER2 
MOV RMER11,$1MP1 ;STORE RMER1 AT TEMP STORAGE 
BIC a(SP) ,STMP1 sMASK ~—= RMER1 


sMOVE SP TO NEXT MASK 
STORE RMER2 AT TEMP STORAGE 
7MASK RMER2 


ADD #2,(SP) - 
MOV RMER2] ,$TMP2 
BIC @(SP) ,STMP2 


#6, (SP) sMOVE SP TO gael CALL 


a(SP) ;CLEAR ERROR NUMBE 
SUB #4, (SP) ;LEAVE SP AT NO ERROR RETURN 
THERE WERE ANY ERRORS IN RMER1, I.E.. $STMP1 
TST $TMP1 ZANY ERRORS TO REPORT?? 
BEQ 5$ sD f 
MOV STMP1,$BDDAT sRECEIVED STATUS FOR TYPEOUT 
CLR $GDDAT sEXPECTED STATUS FOR TYPEOUT 


sMOVE SP TO USER'S ERROR CALL 
: CORRECTABLE DATA CHECK ERROR # 


SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 


JSR PC. a(SP)+ -REPORT ERROR VIA USER 

SUB #10, (SP) -MOVE SP BACK TO BRANCH 

NOP 

THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2) 

TST $IMP2 :ANY ERRORS IN RMER2? 

BEQ 10$ *NO!! 

MOV $IMP2, $BDDAT :RECEIVED STATUS FOR TYPEOUT 

CLR $GDDAT “EXPECTED STATUS FOR TYPEOUT 

ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB  =#67.a(SP) :WRITE ERROR NUMBER IN USER'S CALL 


SEQ 0199 
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58 050550 162716 000002 SUB #2, (SP) _ sMOVE SP TO RETURN FOR ERROR 
59 050554 004736 JSR PC,a@(SP)+ sREPORT ERROR VIA USER 

60 050556 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RE TURN 

61 050562 000240 NOP | 

O¢ 950564 | 10$: 

64 . sAUGMENT THE RETURN _ IF ANY ERROR WAS DETECTED 

65 050564 062716 000004 ADD #4,(SP MOVE SP TO USER'S ERROR CALL 
66 050570 105776 000000 TSTB a (SP) 7WAS THERE AN ERROR CAL.LED?? 
67 050574 001403 BEQ 203 NO! ! 

68 050576 062716 000004 ADD #4, (SP) ;YES = MOVE SP TO ERROR RETURN 
69 050602 000402 BR 
70 050604 162716 000004 20$: SUB 44, (SP) sMOVE SP TO NO ERROR RETURN 

“1 050610 000207 30$: RTS PC sRETURN TO USER 
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032737 
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022626 
062766 
112776 
162766 
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001276 
001464 
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000070 
010000 
000004 
000111 
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SEQ 0201 


~SBTTL DEVICE SELECT SUBROUTINE 
2 sf Palla SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 
; CALL 
=(1) JSR PC ,DEVSEL 
3 (2) BR ?? RETURN IF NO ERROR 
* (5) NOP RETURN IF ERROR 
3(4) ERROR ERROR DEFINED BY SUBROUTINE 
DEVSEL: 
; CLEAR eg S ERROR CALL 
ADD #4,(SP) sMOVE SP TO USER'S ERROR 
CLRB a(SP) ;SLEAR LOW ORDER BYTE OF CALL 
SUB &4, (SP) “MOVE SP BACK 
:SAVE USER'S INFORMATION AND SETUP REGISTERS 
MOV ERRVEC,-(SP) 3zPUSH ERRVEC ON STACK 
MOV ERRVEC+2, ~ (SP) 32PUSH ERRVEC+2 ON STACK 
MOV RO,-(SP) 3;zPUSH RO ON STACK 
MOV R1,-(SP) 3zPUSH R1 ON STACK | 
MOV #20$,ERRVEC ;SETUP FOR BUS TIMEOUT | 
MOV #PR6,ERRVEC+2 
MOV ay -RO = UNIBUS ADDRESS 
MOV TSTQUE, R1 RI POINTS TO DEVICE NUMBER 
sSELECT oar AND VERIFY THAT DEVICE IS AVAILABLE 
OVB (R1),RMCS2(RO) sWRITE UNIT SELECT BITS 
MOV RMCS7(RO), $TMP1 ;GET) ‘DVA‘'* STATUS 
MOV RMCS2(RO) .$TMPO :G "NED'' STATUS 
BIT ANED, STMPO ‘IS DEVICE NONEXISTENT ? 
BEQ 10$ NO! 
ADD #4,10(SP) ge SP TO USERS ERROR CALL 
MOVB #111,a10(SP) ;WRITE ERROR NUMBER 
' BR 30$ ) 
10$: BIT #DVA,STMP1 21S DEVICE AVAILABLE ? 
BNE 35$ YE 
ADD #4,10(SP) & “MO 4 SP TO USERS ERROR CALL 
MOVB #112, a10(SR) 7 WR TE ERRGR NUMBER 
BR 30$ 
;HANDLE BUS TIMEOUT 
20$: CMP (SP) + s;ADJUST SP 
ADD #4, 10(SP) sMOVE SP TO USERS ERROR CALL 
MOVB #173, @10(SP) ;WRITE BUS TIMEOUT ERROR NUMBER 
30$: SUB #2, 10(SP) ;ADJUST RETURN TO ‘NOP’ PRECEDING 


35$ 


sRESTORE USERS DATA AND RETURN 


;THE ERROR CALL 
TO ADDRESS ON STACK 


MOV (SP) +,R1 3zPOP STACK INTO R1 
MOV (SP) +,RO zzPOP STACK INTO RO 
MOV (SP) +, ERRVEC+?2 3;;POP STACK INTO ERRVEC+2 
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DEVICE SELECT SUBROUTINE 
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MOV (SP)+ ,ERRVE 
RTS PC 
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_ ¢gPOP STACK INTO ERRVE( 
sEXIT 
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000240 


162716 
005037 


032737 


901020 
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013737 


0004 37 


012737 


042737 


123757 
101016 


123727 
101410 
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052262 


000010 
000010 
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000050 
000002 
000010 
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040000 
001444 
040000 


001417 


001416 


001350 
0013576 


001142 
000000 


001466 
052262 
001333 


000035 


| 
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;THIS SUBROUTIN 


SEEK 9 CHECK SUBROUTINE 
| | 
VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 


STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT 


BUFFER. 


>THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 


sAFTER HAVING LOADED THE APPROPRIATE, ERROR N 
sOF THE CALLING ROUTINE. 


SEKSTS: | | 
: CLEAR USERS ° ERROR CALL 


: TEST FOR MASSBUS CONTROL 
[LOCAL REGISTERS, I.E., ‘PAR 


SEEK Stat IS CHECKED AS FOLLOWS: 


\ 


JSR PC,SEKSTS 

BR 2??? RETURN HERE IF NO ERROR 

NOP Fea HERE TO REPORT AN ERROR 
ERROR\NUMBER DEFINED BY SUB 

PC ,a(SP)+ 


~ RETURN HERE IF NO MORE ERRORS 


i 


| { 


0 | 

ADD #4, (SP) :MOVE (SP) TO ERROR CALL | 
CLRB = a(SP) . =CLEAR ERROR NUMBER 

SUB #4, (SP) | sMOVE (SP) ITO NO ERROR RETURN 
CLR 300$ | =CLEAR ERROR FLAGS 


BUS PARITY ERROR WHEN WRITING | 
se = ] AND e PE*’ = 0 


FR IN THE ‘ERROR’ TRAP 


ke 


GO BACK TO SUB FOR MORE ERROR CHECKS | 


BIT #PAR,RMER1I ;WAS PARITY ERROR DETEC{TED?? 
BEQ 1$ :NO!! ; 
BIT ADPE ,RMER21 WAS IT DUE TO CONTROL BUS?? 
BNE 1$ :NOT SURE! ! 
| 
;REPORT REGISTER PARITY ERROR VIA USER'S ERROR cal Ho 
CLR SGDDAT : EXPECTED .STATUS 
MOV RMER11,$BDDAT  ;RECEIVED \STATUS 
ADD #4,(SP) ;MOVE STACK TO USER'S ERROR 
MOVB #50,a(SP) :ERROR #50 
SUB #2,(SP), :MOVE SP TO RETURN FOR ERROR 
JSR PC, a(SP)+ | 
SUB #10, (SP) ;RESTORE STACK 
BR 3$ : IAE SHOULD, BE ZERO | 
;DETERMINE THE VALUE OF ‘‘IAE'' STATUS BASED ON TRACK, SECTOR AND CYLINDER 
zALSO, SET ‘‘SKI'' IF CYLINDER ADDRESS IS TOO LARGE. 
1$: MOV AIAE, SGDDAT :SETUP FOR JAE = 1 
BIS #SKI.300$ | “SETUP FOR $1 = 
CMP RMDCO,4822. GREATER THAN LAST CYLINDER |? 
BH! 3$ :YES = CYLINDER IS INVALID 
| BIC #SK'I, 300$ :CLEAR SKI ERROR FLAG 
| 
CMPB RMDAO+1,LSTRK+1 ;:GREATER THAN LAST TRACK|? 
BHI 3$ ;YES = TRACK IS INVALID 
CMPB RMDAO, #29. SECTOR > 29. ? 
BLOS . 2$ :BR IF NO 


ee em et ete 
— it 


aa ee 


—— 2 ee eee 


a 


58 051200 
59 051206 
oY 0571210 
1 051216 
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72 051260 
74 051260 


80 051506 


85 051306 
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96 051566 
97 051372 


99 051374 
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013737 
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062716 
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000240 


032737 


000240 
013737 


001417 
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000061 
000002 
000010 
001576 
137777 


040000 
000004 
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001442 
000037 


001142 
001142 
001142 


052262 


000000 


001376 
001142 


000000 
001346 


000000 


001142 


000000 


i) | 


:18 BIT FORMAT 2 | 


f 


\ 


BIT #FMT16,RMOFO 
BEQ i 3$ - YES = SECTOR 1S INVALID FOR 18 BIT MODE 
CMPB —s« RMDAO, #31. “SECTOR > 31. 
BH! 3$ “YES = -" Is INVALID 
2$: CLR $GDDAT 7'"IAE'' SHOULD = 0 | 
COMPARE EXPECTED AND RECIEVED ‘‘IAE’’ STATUS 
$$: MOV RMER1I,$BDDAT :IS IAE 0K?? i 
BIC #°CIAE,$BDDAT SAVE IAE BIT FOR COMPARE 
CMP $GDDAT.$BDDAT CORRECT TAE! STASUG | 
BNE 35$ “BR IF NO | 
BIC #SK1,300$ “CLEAR SKI FLAG | 
iis BR S$ :GO CHECK NEXT: ERROR _ 
>REPORT INCORRECT '“TAE'' STATUS VIA USER" S ERROR CALL | 1 | 
i ! ' | 
' MOVB Wt, (SP) «ERROR 51 i | | 
SUB #2, (SP) “MOVE SP TO RETURN 'FOR ERROR | - 
JSR PC, a(SP)+ :REPORT INCORRECT IAE 
SUB #10, (SP) ; sRESTORE (SP) | 
NOP ; j 
5$: A j 1 
:REPORT ANY IVC ERROR AS y ! 
: IVC ERROR WITH VOLUME VALID ZERO 
; ERRONEOUS IVC ERROR, VOLUME VALID IS SET , 
BIT #IVC,RMERZ] ‘vc ERROR? ? 
BEQ 52$ . 
CLR $GDDAT 2 BECTED STATUS , | 
MOV RMER2I ,SBDDAT | “RECEIVED STATUS | 
ADD #4, “MOVE SP TO USER" S ERROR | 
MOVB 760. SeSP) :ERROR 60 IF VV = 0 
BIT vy. DS! 
BEQ | 
MOVB #61 a(SP) ERROR 61 IF VV = 1 | 
51$: SUB 2, (SP) “MOVE SP TG RETURN FOR ERROR | 
JSR pe -a(SP)+ :REPORT ERROR VIA USER. 
SUB #10, (SP) :RESTORE SP 
NOP | 
52$: MOV RMER21,$BDDAT  ;RECEIVED as J! 
BIC A*CSKI,$BDDAT ;:CLEAR DONT CARES 
MOV 300%, $GDDAT ;GET EXPECTED SKI STATUS 
BIC #*CSKI,$GDDAT  :CLEAR DONT CARE 
BEQ 53$ “BR ANCH IF 0 EXPECTED 
| 
:REPORT ERROR IF SKI ib NOT SET (IAE WAS NOT DETECTED) | | 
eee |: #SKI,$BDDAT :WAS SKI DETECTED ?? me 
BNE 54$ YES | 
ADD , (SP) : “MOVE. sp 10, USERS ERROR CALL 
MOVR aby a (SP :WRITE ERROR NUMBER 
SUB #2, (SP) “MOVE SP TO ERROR RETURN 
SR Pc ,a(SP)* “REPORT ERROR AND RETURN 
UB #10, (SP) -MOVE SP TO NO: BRROR 
sad BR ag :GO TO NEXT ERROR CHECK 
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001142 


000000 
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001376 


001142 
000000 


001550 


001142 


000000 
001346 


000000 


001346 
001350 
001140 
001140 
001142 


000000 


;REPORT Tt IF SKI IS SET 


IT #SK1,$BDDAT 
BEQ 54$ 
ADD #4, (SP) 
MOVB 54, ,2(§P 
SUB (SP 
JSR pe ‘a(SP) 
SUB #10, (SP) 
NOP 
=REPORT ANY DEVICE CHECK 
54$: BIT VC, RMER2I 
BEG 
CLR $GDDAT | 
MOV RMER21,$BDDAT 
ADD (SP) 
MOVB #55,a(SP) 
SUB #2, (SP) 
JSR PC .a(SP)+ | 
SUB #10, (SP) 
NOP 
:REPORT ANY 


| 


;15 SKI SET 7A | 

O = Ski IS OK 
“MOVE (SP) TO ERROR 
:LOAD ERROR 


“MOVE SP ITO RETURN FOR ERROR 


PORT SEEK 
vale (SP) 


sat THERE DVC DURING SEEK?? 


;EXPECTED STATUS 
sRECEIVED STATUS , 


; ERROR #55 


:MOVE SP_TO RETURN FOR ERROR 
USER 
:RESTORE SP | 


;REPORT ERROR 7 


"OPI'’ ERROR AS OPI WITHIMDL = 0,: OR OPI 
zBECAUSE_ON ON CYLINDER LATCH DIDN'T 





BIT /RMERTI : OPI"" ERROR? ? | 
CLR —«-$GDD TERPECTED STATUS! yy 
MOV MERI I. $BDDAT ;RECEIVED STATUS | 
ADD #4, (SP) -MOVE (SP) TO ERROR 4 
VB = #52, a(SP) :LOAD ERROR NUMBER i. 
IT #MOL,RMDS! ;WAS MEDIUM ON LINE?? | 
BEQ 7$ =NO!! : ! 
MOVB #53.a(SP) YES = CHANGE ERROR NUMBER 
7$: SUB #2, (SP) *MOVE | SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ :REPORT ‘'OPI'' ERROR 
SUB #10, (SP) ;RESTORE (SP) , 1 
NOP | | | 
:SEE IF ‘PIP'’ = 0, AND ATA’, ‘MOL’' AND "VV" = 1 | 
8$: MOV RMDSI,-(SP) | of 
BIC | &#*C<ATA!PIP!MOL !vv>. (SP) 3 
CMP HATA!MOL !VV, (SP) + 
BNE 9$ :ERROR IN RMDS 
JMP 14$ =RMDS {5S Ok 
;REPORT ERROR IF MOL = O AND OPI = 0 
9s : BIT #MOL .RMDSI :1S MOL RESET?2 
BNE 10$ :NO = MOL IS\SET 
BIT #OP1,RMER1I :WAS OPI SET 
BNE 10$ -YES = DONT REPORT JERROR 
MOV RMDSI ,$GDDAT sEXPECTED STATUS | 
BIS #MOL , $GDDAT | 
MOV RMDS1,$BDDAT :RECEIVED STATUS | 
ADD #4, (SP) f 
MOVB  4#62,a(SP) | 
SUB #2, (SP) | :MOVE SP TO RETURN FOR ERROR 
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) | 
C ya (SP) +’ 
| BC ge se) 


001346 
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001142 
001142 


000000 


001346 
007140 
001140 
001142 
000000 
| 
oe 
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000000 


JSR ;REPORT ERROR VIA USER 
SUB | | 
NOP | 
:REPORT AN ERROR IF ‘'PIP"' I) STIL SET AND SKI NOT SET 
10$: B17 #PIP,RMDS] | 1s ‘PIP’ STILL SET?? 
BIT #SKI.RMER2I “WAS ''SKI''SET?? 
BNE 11$ : YES-DONT REPORT PI 
MOV RMDS1,$GDDAT sEXPECTED STATUS | 
BIC #PIP, $BDDAT | 
MOV RMDSI,$BDDAT  § ;RECEIVED STATUS | 
ADD #4, (SP) ; :M (SP) TO! ERROR , 
MOVB #56,a(SP) =LOA ERROR NUMBER 
SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
JSR PC, a(SP)+ : aia ‘PIP’' SET AFTER SEEK 
SUB #10, (SP) | :RESTORE (SP) 
NOP 
;REPORT AN ERROR IF "'ATA'' IS NOT S ET 
11$: BIT #ATA,RMDSI WAS VATA SET ?? 
BNE 13% YES! 
MOV RMDSI, $GDDAT a EXPECTED STATUS 
BIS #ATA!MOL '!DPR! DRY. $GDDAT 
MOV RMDSI . SBDDAT RE PIVED STATUS | 
ADD #6 MOVE (SP) TO ERROR | ) 
MOVB = #57. “3 (SP) : LOAD ERROR NUMBER 
SUB #2, (SP) :MOVE SP) TO RETURN dn Kf Yaron 
JSR PC. a(SP)+¢ :REPORT ATTENTION NOT SE 
| 3SEEK TEST | 
SUB #10, (SP) sRESTORE (SP | | 
NOP { F } 
:REPORT ERROR IF VOLUME VALID I$ esa ae IvC IS rene | 
i3$: BIT #VV.RMDSI a | 
BNE 14$ NO! | 
BIT #IVC,RMERZI i1s ivc ALSO 0 2? \ 
E 14$ ue =~ IVC IS SET | 
V RMDS1I,$GDDAT EXPECTED STATUS | 
BIS AW, S6DDAT | | 
MOV sap0At RECEIVED STATUS 
MOVB > i. SSP) ERROR #64, | | 
SUB #2,(SP) . -? =MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ 
SUB #10, (SP) | 
NOP | 
14$: | 
:MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
ADD #4,(SP) , :MOVE (SP) TO ERROR CALL 
TSTB a(SP) -WAS ERROR CALLED?? | 
BEQ 15$ sNO!! ' 
ADD 4 5 (SP) “MOVE TO ERROR RETURN 
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| CZRMMBO RMOS/3/2 FCINL TST 1 MACRO V04.00 4=APR=81 11:43:28 PAGE 2? | | 
CONTROLLER CLEAR SUBROUTINE . SEQ 0208 


j . . 4 


] -SBTTL CONTROLLER CLEAR SUBROUTINE ) | | 
3 THUS SUBROUTINE CLEARS, THE MASSBUS CONTROLLER. MASSBUS ADAPTERS, | , 4 
é ZAND DRIVES, THEN SELECTS THE DRIVE. | 
é ZCALL: JSR PC, CNTCLR 
? BR 273 RETURN HERE IF NO ERROR FOUND | 
: NOP RETURN HERE IF ANY ERROR FOUND | | 
9 : ERROR SUB DEFINES ERROR NUMBER 4 | | 
10 22? | fy | 
| | 
12 052264 CNTCLR: | | 
052264 010046 MOV RO,-(SP) 7;PUSH RO ON STACK | 
2266 010146 MOV —sR1.=(SP) _ EEPUSH R1_ON STACK 4 
052270 013746 000004 Moy ERRVEC.=(SP)_ PUSH ERRVEC ON STACK | 
052274 013746 000006 MOV —-ERRVEC#2,-(SP) H ERRVEC+2 ON STAGK a 
13 052300 012737 052340 000004 MOV  #10S.ERRVEC—; SETUP FOR BUS TIMEOUT . © "Ho 
14 052306 012737 000300 000006 MOV «PRO ERRVEC+2 
15 052314 013700 001276 MOV‘ $BASE.RO ;RO_= UNIBUS ADDRESS 
16 052320 012760 000040 000010 MOV #CLR.RMCS2(RO) CLEAR MASSBUS 
17 052326 013701 001464 MOV. —«‘TSTQUE,R1 GET DEVICE UNDER TEST | 
18 052332 111160 000010 MOVB  (R1) ,RMCS2(RO) SELECT DEVICE | 
19 052336 000412 BR 208 
21 052340 022626 10$: CMP —s (SP) +, (SP)+ ——-; ADJUST STACK | _ 
22 052342 062766 000004 000010 ADD #4,10(SP) sMOVE SP TO USER'S ERROR ‘CALL 
23 052350 112776 000007 000010 MOVB -#7.a10(SP) “WRITE THE ERROR NUMBER ! 
24 052596 162766 000002 000010 | = sua. #2, 10(SP SADJUST SP TO RETURN TO ERROR 
052364 012637 000006 MOV (SP) +, ERRVEC+2 3;POP STACK INTO ERRVEC+2 
052370 012637 00004 , MOV (SP)+,ERRVEC  —= ;;POP STACK INTO ERRVEC | 
052374 012601 MOV (SP)+,R1 ::POP STACK INTO R1 | 
052376 012600 MOV (SP)+,RO :zPOP STACK INTO RO | | 
26 057400 000207 RTS PC 


_2RMMBO RMOS/3/2 FCINL TST 1 


»TATUS CHECK SUBROUTINES 


-_—— 


WRI HO ODNO MEW —$O O00 VO WP wr -. 


052402 
5 


at a tO oS hd at ab oof 


27 052402 
28 052406 
% 052412 


31 052416 


052470 
41 052474 


052476 


53 
54 052546 
55 052550 


56 052552 
57 052556 


062716 
105076 
162716 


013737 


111116 


000004 
000000 
000004 


001334 
100000 
004200 
001140 
000004 
000126 
000002 
000010 
001140 
001340 
000004 
000127 
000002 


000010 


001344 


001464 
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001142 


000000 


001142 


. SBTTL 


SF EAA AAA AEAAAAAAAAAKCAAEAAAEAAARAAREARHAKERAHRRERHEEHHEHeKeeHAeaeane 


" SBITL 


STATUS CHECK SUBROUTINES 
CONTROLLER CLEAR STATUS CHECK SUBROUTINE 


;THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 


> STATUS 


[USED FOLLOWING A CONTROLLER CLEAR OPERATION, 


THIS SUBROUTINE SHOULD 


STORED IN THE GET BUFFER. D ONLY 
1.E., WRITING A 1 


BE 
IN BIT 


:5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 


> STATUS 


PERTINENT 70 THE DEVICE IS NOT CHECKED. IN PARTICULAR, THE 


; FOLLOWING STATUS BITS ARE NOT CHECKED: 


CLRSTS: 
: CLEAR a S ERROR CALL 


;REPORT 
4S: 


zREPORT 
5$: 


>REPORT 
7$: 


ATA,ERR,PIP,MOL,WRL,LBT,PGM,VV,0M,UNS,SKI ,DVC 


JSR PC,CLRSTS 

BR Pit RETURN HERE IF NO ERROR 

NOP RETURN HERE TO REPORT AN ERROR 

ERR ERROR NUMBER DEFINED BY SUB 

JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
are RETURN HERE IF NO MORE ERRORS 


#4, (SP) :MOVE SP TO ERROR 
CLRB a SP) : CLEAR ERROR NUMBER 
SUB #4, (SP) MOVE SP BACK TO NO ERROR 
ERROR IF RMCS1 NOT INITIALIZED 
MOV RMCS1I,$BDDAT  ;VERIFY RMCS1 
BIC #SC,$BDDAT : IGNORE SPECIAL CONDITION 
MOV #DVAIRDY.$GDDAT EXPECT DVA & R 
CMP $GDDAT,$BDDAT  :COMPARE EXPECTED. RECEIVED 
BEQ 5$ “BRANCH IF EQUAL 
ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
MOVB #126.a(SP) ‘WITE ERROR NUMBER IN CALL 
SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ -REPORT ERROR VIA USER 
SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
ERROR IF RMBA NOT RESET 
CLR $GDDAT : VERIFY RMBA IS ZERO 
MOV RMBAI , SBDDAT 
BEQ 7$ :BRANCH IF ZERO 
ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
MOVB  #127,a(SP) “WITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ *REPORT ERROR VIA USER 
SUB #10, (SP) “MOVE SP BACK TO NO ERROR 


NOP 
ERROR IF RMCS2 NOT INITIALIZED 


MOV RMCS21,$BDDAT :VERIFY RMCS2 

MOV R1,-(SP) ;PUSH R1 ON STACK 

CLR -(SP) “EXPECT IR & UNIT NUMBER 
MOV TSTQUE ,R1 ;R1 = ADDRESS OF TEST QUE 
MOVB (R1), (SP) 


SO ee ee — ee ee oe 


en 


—————— ee oe 


ZRMMBO RMOS/3/2 FCTNL TST 1 


ONTROLLER CLEAR STATUS 
58 052560 
05 


SUR 


ed ee eee eed eet 


pushes atee 
WN —-O 


052626 
052630 


053030 


052776 


162716 


CHECK SUBROUTINE 


000700 
C01140 


007140 


000004 
000130 
000002 


000010 


001140 
001350 
040000 


000004 
000131 
000002 


000010 


001360 
000046 
000010 
001140 


000004 
0001 33 
000002 


000010 


001140 
001402 


000004 
000135 
000002 


000010 


001374 
140000 
011777 
001140 


000004 
0001 36 
000002 


000010 
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001142 


000000 


001142 


000000 


:REPORT 
9$: 


:REPORT 
13$: 


;REPORT 
17$: 


;REPORT 
19$: 


BIS MIR, (SP) 


MOV (SP) +, $GDDAT 

MOV (SP) +R} :POP STACK INTO R1 

CMP $GDDAT , $BDDAT : COMPARE EXPECTED & RECEIVED 
BEQ 98 “BRANCH IF EQUAL 

ADD (SP) “MOVE SP TO USER'S ERROR CALL 
MOVB #180. a(SP) “WITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ “REPORT ERROR VIA USER 

SuB #19, (SP) “MOVE SP BACK TO NO ERROR 


ERROR IF ant NOT —s IGNORE UNS 
CLR $GDDAT ;VERIFY RMER1 


MOV RMER11.$BDDAT 
BIC #UNS , $BDDAT : IGNORE UNSAFE 

BEQ 13$ “BRANCH IF ZERO 

ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
MOVB #131,a(SP) :WITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ “REPORT ERROR VIA USER 

SUB #10, (SP) “MOVE SP BACK TO NO ERROR 


ERROR IF RMMR1 NOT NA eee WC,LS,LST 
MOV RMMR11,$BDDAT ;VERIFY RMMR 
#WCILSILST, —— 


BIC : IGNORE WORD CLOCK, SCT, 
MOV #MWD, $GDDAT :EXPECT WRITE DATA BIT 

CMP $GDDAT,$BDDAT :COMPARE EXPECTED AND RECEIVED 
BEQ 17s -BRANCH IF 0 

ADD “MOVE SP TO USER'S ERROR CALL 
MOVB 85° ASP) “WITE ERROR NUMBER IN CALL 

SUB #2, (SP) -MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ “REPORT ERROR VIA USER 

SUB #10, (SP) “MOVE SP BACK TO NO ERROR 


NOP 
AN Sata A RMEC2 IS NOT RESET 


CLR DDAT :EXPECT ZEROS 

Mov an ,SBDDAT  :VERIFY RMEC2 = 

ADD SP) :MOVE SP TO USER'S ERROR CALL 
MOVB miss, a(SP) *WITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT ERROR VIA USER 

SUB #10, (SP) “MOVE SP BACK TO NO ERROR 


NOP 
ERROR IF RMMR2 NOT INITIALIZED-IGNORE ROQA,ROB 
MOV -SBDDAT ;VERIFY RMMR2 


BIC #ROA'ROB, $BDDAT 

MOV #1ST!1777,$GDDAT -EXPECT TEST BIT ON 
CMP $GDDAT, $BDDAT 

BEQ 218 

ADD (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB w186> a(SP) “WITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT ERROR VIA USER 

SUB (SP) “MOVE SP BACK TO NO ERROR 


_ N 
sREPORT ERROR IF RMER2 NOT RESE1-IGNORE SKI ,DVC 


TRK 


eS SE -a 


D ji 
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115 053102 005037 001140 218: CLR $GDDAT sEXPECT ALL ZEROS 
116 053106 013737 601376 001142 MOV RMER21,$BDDAT  :VERIFY RMERZ 

117 053114 042737 040200 001142 BIC #SKI'DVC,$BDDAT : IGNORE DEVICE ERRORS 

118 053122 001413 BEQ 215$ “BRANCH IF OTHER BITS 0 

119 053124 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
120 053130 112776 000174 000000 MOVB #174,a(SP) :WITE ERROR NUMBER IN CALL 
121 053136 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
122 053142 7 JSR PC. a(SP)+ “REPORT ERROR VIA USER 

123 053144 162716 000010 SUB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
124 053150 240 NOP 

125 :REPORT ERROR IF RMDS NOT INITIALIZED 

126 053152 013737 001346 001142 215%: MOV RMDSI,$BDDAT — ;TEST DRIVE STATUS REGISTER 
127 053160 042737 177177 001142 BIC #*°C<DRY | DPR>, $BDDAT 

128 053166 012737 000600 001140 MOV #DPR!DRY,SGDDAT ;EXPECTED DRIVE STATUS 

129 053174 023737 001140 001142 CMP $GDDAT,$BDDAT :COMPARE EXPECTED & RECEIVED 
130 053202 001413 BEQ 22$ *BRANCH IF EQUAL 

131 053204 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
132 053210 112776 000134 000000 MOVB #134,a(SP) “WRITE ERROR NUMBER 

133 053216 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
134 053222 004736 JSR PC. a(SP)+ “REPORT ERROR TO USER 

135 053224 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR 
136 053230 000240 NOP 

137 053232 062716 000004 22%: ADD #4, (SP) :MOVE SP TO ERROR CALL 

138 053236 105776 000000 TSTB. ~—s-_ (SP) “WAS AN ERROE DETECTED?? 

139 053242 001403 BEQ 23$ :NO!! 

140 053244 062716 000004 ADD #4, (SP) *YES = MOVE TO ERROR RETURN 
141 053250 000402 RR 24$ ; 

142 053252 162716 000004 238: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 
143 053256 000240 24$: NOP 


144 053260 000207 RTS PC 


JSMMBO RMOS/3/2 FCTNL TST 1 
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M—O OW NO APW-$O OW VAWhiN . 


25 


26 
27 
28 


053262 
05326¢ 
053266 
053272 
053276 


053314 
053322 
0533350 


053354 
053356 


053356 
053564 


062716 
105076 
162716 


032737 


000240 


032737 


032737 
601570 


032737 
001424 
013737 


000004 
000000 
000004 


000100 
001346 


000002 
000010 


010000 
001346 


000002 
000010 


060007 


040000 
001350 


—E 1 
MACRO v04.00 4-APR=-81 11:43:28 PAGE 29 


001 346 
001140 
001140 
001142 


000000 


001546 
001140 
001140 
001142 


000000 


001350 


001350 
001142 


-SBTTL PACK ACKNOWLEDGE STATUS CHECK 
>THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 


;COMMAND USING THE STATUS STORED IN THE GET BUFFER. 


ERRORS ARE 


:REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


$ 
MOV RMER11,$BDDAT 


RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


sMOVE SP TO ERROR CALL 
;CLEAR LOW ORDER BYTE 
sMOVE SP BACK 


te VOLUME VALID SET?? 
‘EXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO ERROR CALL 
;WRITE NUMBER IN ERROR CALL 
sMOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR 

;MOVE SP BACK TO BRANCH 


ht Ay SET?? 
:EXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO ERROR CALL 

sWRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 

eREPORT TH ERROR 

:MOVE SP TO BRANCH 


OR “ILF’’ 1S SET 


sCALL: 

=(1) JSR PC,ACKSTS 

; BR ??? 

2 NOP 
ERROR 
JSR PC, a(SP)+ 

. 2??? 

ACKSTS: 

:CLEAR USER'S ERROR CALL 
ADD #4, (SP) 
CLRB a(SP) 
SUB #4, (SP) 

:REPORT AN ERROR IF ‘VV'' IS 0 
BIT V.RMDS1 
BNE 
MOV RMDSI,$GDDAT 
BIS #VV,$GDDAT 
MOV RMDSI,$8DDAT 
ADD #4, (SP) 
MOVB #155,a(SP) 
SUB 2, (SP) 
JSR PC a(SP)+ 
SUB #10,(SP) 
NOP 

1$: 

:REPORT AN ERROR IF ‘™OL"’ 
BIT AMOL, wosl 
BNE 2$ 
MOV RMDSI,$GDDAT 
BIS #MOL , SGDDAT 
MOV RMDSI.$BDDAT 
ADD #4, (SP) 
MOVB #6) ,a(SP) 
SUB #2, (SP) 
JSR PC, a(SP)+ 
SUB #10, (SP) 
NOP 

cf: 

: SEE IF “UNS"', “OPI*’, "RMR", ‘sie. 

BIT #UNS OPI 'RMR'ILRIILF,RMER1! 

BEQ 7$ 

REPORT AN ERROR IF “UNS” 1S 
BIT HUNS ,RMER1 I 
BEQ 3 


S SET 
;WAS UNS SET?? 
“RECEIVED STATUS 


Z2R2MMBO RMO5/5/2 FCINL TST 1 


Py 053464 


66 053526 


09 053526 


PACK ACKNOWLEDGE STATUS 


013737 


000240 


032737 


000240 


032737 


000240 


032737 


013737 


CHE CK 


020000 
001350 
001350 
020000 
000004 
000043 
000002 


000010 


000004 
001350 


000610 


000002 


001350 
001350 


000010 


000001 


001350 
001350 
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001140 
001140 


000000 


001350 
001142 
001140 
001140 


000000 


001350 
001142 
001140 
001140 


000000 


001550 
001142 
001140 
001140 


000000 


001350 


001742 
001140 


3$: 
;REPORT 


4$: 
:REPORT 


5$: 
REPORT 


6$: 
>REPORT 


MOV RMER11,$GDDAT 
BIC #UNS , $GDDAT 
ADD #4, (SP) 

MOVB  #42,a(SP) 

SUB #2, (SP) 

JSR PC,a(SP)+ 

SUB #10, (SP) 

NOP 

ANY OPI ERROR 

BIT #OPI1,RMER1] 
BEQ 4$ 

MOV RMER11,$BDDAT 
MOV RMER11,$GDDAT 
BIC #OP] ,$GDDAT 
ADD #4, (SP) 

MOVB #4%,a(SP) 

SUB #2, (SP) 

JSR PC, a(SP)+ 

SUB #10, (SP) 

NOP 

ANY RMR ERROR 

BIT #RMR,RMER1] 
BEQ 5$ 

MOV RMER11,$BDDAT 
MOV RMER11,$GDDAT 
BIC #RMR,SGDDAT 
ADD #4, (SP) 

MOVB #44,a(SP) 

SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #10, (SP) 

NOP 

ANY ILR ERROR 
BIT AILR,RMER1! 
BEQ 6$ 

MOV RMER11,$BDDAT 
MOV RMER11,$GDDAT 
BIC #ILR,$GDDAT 
ADD #4, (SP) 

MOVB #45,a(SP) 

SUB , (SP) 

JSR PC ,a(SP)+ 

SUB #10, (SP) 

NOP 

ANY ILF ERROR 

BIT #ILF,RMER1I 
BEQ 7$ 

MOV RMER11,$BDDAT 
MOV RMER11,$GDDAT 


sEXPECTED STATUS 
sMOVE SP TO ERROR CALL 


;WRITE NUMBER OF ERROR IN CALL 
;MOVE SP TO RETURN FOR ERROR 
:REPORT THE ERROR VIA USER 

:MOVE SP TO NO ERROR RETURN 


Not! OPI SET 7? 


;RECEIVED STATUS 
sEXPECTED STATUS 


sMOVE SP TO ERROR CALL 

;WRITE NUMBER OF ERROR IN CALL 
sMOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
sMOVE SP TO NO ERROR RETURN 


sWAS RMR SET?? 
“NO! ! 


SRECEIVED STATUS 
“EXPECTED STATUS 


sMOVE SP TO ERROR CALL 

;WRITE NUMBER OF ERROR IN CALL 
sMOVE SP TO RETURN FOR ERROR 
sREPORT THE ERROR VIA USER 
sMOVE SP TO NO ERROR RETURN 


jf ILR SET?? 


:RECEIVED STATUS 
sEXPECTED STATUS 


sMOVE SP TO ERROR CALL 

;WRITE NUMBER OF ERROR IN CALL 
;MOVE SP TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
sMOVE SP TQ NO ERROR RETURN 


bong LF SEF? 


:RECEIVED STATUS 
sEXPECTED STATUS 


G 7 
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11§ 053772 042737 000001 001140 BIC #ILF ,$GDDAT 

‘16 054000 062716 600004 ADD —s- #4, (SP) {MOVE SP TO ERROR CALL 

117 054004 112776 000046 000000 MOVB  #46,a(SP) :WRITE NUMBER OF ERROR IN CALL 

118 054012 162716 000002 SUB ss #2, (SP) :MOVE SP_TO RETURN FOR ERROK 

119 054016 004736 JSR —s- PC a(SP)+ :REPORT THE ERROR VIA USER 
120 054020 162716 000010 Sup saw, (SP) :MOVE SP TO NO ERROR RETURN 

121 054024 000240 NOP | 

122 054026 7$: 

1246 :AUGMENT RETURN gets IF ERROR F OUND 

125 054026 062716 000004 ADD —s--#4, (SP) MOVE SP TO ERROR CALL 

126 054032 105776 000000 TSTB @ (SP) “WAS ERROR FOUND?? 

127 054036 001403 BEQ = BS ZNO! ! 

128 054040 062716 000004 ADD #4, (SP) :YES = MOVE TO ERROR RETURN 

129 054044 000402 BR 9$ 

30 054046 162716 000004 8$: SUB #4, (SP) s;MOVE SP TO NO ERROR RETURN 


31 
32 054054 000207 RTS PC 


oRMMBO 


QM05/ 3/2 


FCTINL TST 1 
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Se 4 TRRATE STATUS CHECK SUBROUTINE 


ry 
§QODNOS Ml cnn 


054056 


054056 


054072 
054100 


954102 


054172 


054172 


054250 


062716 
105076 
162716 


032737 
001553 


032737 


162716 
000240 


032737 


000004 
000000 
0C0004 


022011 


000010 
000010 


000002 
000010 


000001 


000004 
000071 
000002 
000010 


001350 


001350 
001376 
001140 
001140 
001142 


000000 


001350 
001140 
001140 
061142 


000000 


- SBTTL 


sCALL: 
*(1) 


RCLSTS: 


RECALIBRATE STATUS CHECK SUBROUTINE 


:THIS SUBROUTINE CHECKS THE RESULTS OF A  etemimaile OPERAT J ON 
[USING THE STATUS STORED IN THE GET BUFFER 


JSR PC,RCLSTS 
BR ee 

NOP 

ERROR 

JSR PC,a(SP)+ 


> CLEAR ed S — NUMBER 


ADD (SP) 
CLRB 3¢§P) 
SUB #4, (SP) 


;CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


;CLEAR USER'S ERROR CALL 
sMOVE SP BACK TO BRANCH 


sock IF — OR “‘ILF’’ OR ‘‘OPI'' OR ‘"IAE’’ IS SET 


;REPORT ANY ame oie BUS PARITY ERROR, 


:* PAR" 


1$: 


sREPORT 


C$: 


BEQ 

= 1 AND 

BIT #PAR,RMER1I 
BEQ 1$ 

BIT #DPE ,RMERZI 
BNE 1$ 


MOV RMER11,5GDDAT 
BIC APAR ,SGDDAT 


MOV RMER11,$BDDAT 
ADD #4, (SP) 

MOVB #50,a 

SUB #2, (SP) 

JSR PC ,a(SP)+ 

SUB #10, (SP) 

NOP 

ANY “ILF*’ ERROR 

BiT MILF ,RMER1! 
BEQ 2$ 

MOV RMER11 , $GDDAT 
BIC AILF ,SGDDAT 
MOV RMER11 , $BDDAT 
ADD 4¢., (SP) 

MOVB #71 ,a(SP) 

SUB #2, (SP) 

JSR PC,a(SP)+ 

SUB | #10, (SP) 

NOP . 


are ores »RMER11 


NONE ARE SET - GO TO NEXT CHECK 
bus 
eWAS | "'PAR'’ SET?? 
:NO! 
SUAS: “DPE'* SET?? 

;YES - NOT A REGISTER ERROR 
:EXPECTED STATUS 


sRECEIVED STATUS 


oe SP TO USER*S ERROR CALL 


;WRITE ERROR NUMBER IN CALL 
:MOVE SP TO RETURN FOR ERROR 
;GO REPORT ERROR 

sMOVE SP BACK TO BRANCH 


swAS “‘ILF’’ SET?? 
sNO!: 
sEXPECTED STATUS 


sRECEIVED STATUS 

:MOVE SP TO USER'S ERROR CALL 

;WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 

“REPORT ERROR VIA USER 

sMOVE SP BACK TO BRANCH 


SS ss >Re 


ZRMMBO RMOS/3/2 FCTNL TST 1 


SE A. (BRATE 


102 


. ow we et te 8 
FAVASSRVRARG 


= —-t —*@ 


1 054252 


054350 


054350 


054426 
054450 


054430 
054456 


054440 


032737 


000240 


032737 


000240 


032737 
001517 


032737 


020000 


000073 
000602 


000010 


002000 
001350 
002000 
001350 
000004 
000070 
000002 


000010 


050200 


010000 
001376 


000075 
000002 


000010 
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001350 
001140 
001140 
001142 


000000 
001346 


000000 


001350 
001140 
001140 
001142 


000000 


001376 


001576 
001140 
001140 
001142 


000000 
001346 


000000 


3$: 


31$: 
sREPORT AN 


4$: 
sSEE If 


;REPORT 


5$; 


6$: 


sREPORT ANY "‘OPI'" ERROR AS 
OPI D 


DUE TO ‘™OL" 


= 0 
, BECAUSE ON CYLINDER LATCH DIDN'T RESET 


#0P 1, RMER11 WAS OPI SET?? 
RMER11,$GDDAT  :EXPECTED STATUS 
#OP1,$GDDAT 
RMER1I1,$BDDAT  ;RECEIVED STATUS 
#6.(S *MOVE SP TO USER'S ERROR CALL 
#72,a(SP) “WRITE ERROR NUMBER IN USER'S CALL 
MOL ,RMDS ;WAS *MOL' = 07? 
s¥es:: 
#73,a(SP) “NO = CHANGE ERROR NUMBER 
#2, (SP) “MOVE SP TO RETURN FOR ERROR 
PC a(SP)+ “REPORT ERROR VIA USER 
#10, (SP) “MOVE SP BACK TO BRANCH 


 wiutee IF “‘IAE’’ 1S SET 


#IAE,RMER11 1S "'IAE'' SET?? 
4$ I! 


NO! ! 
sEXPECTED STATUS 


RMER11,$GDDAT 

AIAE,$GDDAT 

RMER11,$BDDAT ;RECEIVED STATUS 

#4,(SP) -MOVE SP TO ERROR CALL 

#70,a(SP) “WRITE ERROR NUMSER IN USER'S CALL 
#2, (SP) “MOVE SP TO RETURN FOR ERROR 

PC ,a(SP)+ “REPORT ERROR 

#10, (SP) :MOVE SP BACK TO NO ERROR RETURN 


"“SKI"’ OR ‘‘IVC*' OR ‘DVC"’ IS SET 


BIT 
BEQ 


ASKI!IVC!DVC,.RMER2] 
8$ 


sNONE OF THE BITS ARE SET 


ANY ‘IVC’ ERROR AS 
-IVC WITH VV = 0 


eats © IVC ERROR 


IT #IVC,RMERZ! sWAS IVC SET?? 
BEQ 6$ sNO!! 
MOV RMER21,$GDDAT sEXPECTED STATUS 
BIC #IVC,$GDDAT 
MOV RMER21 , $BDDAT sRECEIVED STATUS 
ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
MOVB 474 ,a(SP) sWRITE pe NUMBER IN CALL 
BIT #VV,RMDS1 :WAS ws 
BEQ 5$ s¥es! 
MOVB #75 ,a(SP) 3NO - “CHANGE ERROR NUMBER 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ >REPORT ERROR VIA USER 

— #10, (SP) :MOVE SP BACK TO BRANCH 
N 


cr 
al 
*< ‘ 
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° 
~—-> > —* _) - 
at ant .s 


—_ et st Ot 
MPININMIN NPL — — 
MEW -O OW NO w 


QAA NWA 


me ee ed et =e 3 5 


OOONAUSWwR- 
© 


054536 


054616 


054616 


054674 
054676 


054676 


054720 


054720 


032737 


000240 


013746 
042716 
022726 
001002 
000137 


032737 


032737 
001030 
032737 


640000 
0uU1376 
0000 


009200 
001376 


000002 
000010 


001346 
047676 
110100 


055330 


010000 
020000 
001346 


000100 
000002 


000010 


000100 
010000 


;REPORT at ""SKI"" ERROR 


001376 of oe ;WAS SKI SET?? 
001140 MOV RMER21,$GDDAT sEXPECTED STATUS 
001140 BIC #SKI,$GDDAT 
001142 MOV RMER2 1, $BDDAT sRECEIVED STATUS 
ADD #4, (SP) | *MOVE SP TO-USER'S ERROR CALL 
000000 MOVB #76,a(SP) ;WRITE ERROR NUMBER 
SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ “REPORT ERROR VIA USER 
SUB #10, (SP) sMOVE SP 10 BRANCH 
NOP 
7$: 
:REPORT ANY ‘‘DVC'’ ERROR 
001376 BIT ADVC,RMER2Z] sWAS 'DVC’’ SET?? 
BEQ 8$ sNO!! 
001140 MOV RMER21,$GDDAT sEXPECTED STATUS 
001140 BIC #DVC ,SGDDAT 
001142 MOV RMER21,$BDDAT sRECEIVED STATUS 
ADD #4, ( ) “MOV 


E SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO RETURN FOR ERROR 
:REPORT ERROR VIA USER 


SP 
000000 MOVB  #77,a(SP) 
JSR PC a(SP)+ 


SUB #10, (SP) sMOVE SP TO USER'S BRANCH 
NOP 
8$: 
:SEE IF ‘PIP** AND ‘‘OM'’ ARE 0, AND ‘'ATA’',’MOL‘’ AND ‘‘VV’’ ARE 1 
MOV RMDSI,-(SP) sPUT RMDS ON STACK 
BIC #°C<PIP'MOL! VV!OMIATA>, (SP) 
CMP AATA!MOL! VV, (SP) + 
BNE 85$ 
JMP 13$ 
85$: 
sREPORT AN ERROR IF MOL = C AND OPI = O, I.E.,. MEDIUM WENT OFF 
LINE AFTER RECALIBRATE WAS INITIATED 
001346 BIT #MOL ,.RMDSI 3;DID MOL DROP?? 
BNE o$ zNO!! 
001350 BIT #OPI,RMER1] 7 WAS OPI ERROR REPORTED?? 
BNE 9$ >YES - DON'T REPORT MOL = O 
001140 MOV RMDSI,$GDDAT = EXPECTED STATUS 
001140 BIS #MOL , $GDDAT 
001142 MOV RMDSI,$BDDAT sRECEIVED STATUS 
ADD #4,(SP) ;MGVE SP TO USER'S ERROR CALL 
000000 MOVB #100,a(SP) s;WRITE ERROR NUMBER 
SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
JSR PC ,a(SP)+ ;REPORT ERROR VIA USER 
_ #10, (SP) -MOVE SP BACK TO USER'S BRANCH 
N 
9$: 
sREPORT AN ERROR IF ‘‘vV'* = Q AND ‘ ‘TVC"* = Q 
001346 BIT AVV,RMDS! :DID: “VV'' DROP?? 
BNE 10$ NO! 
001376 BIT H#IVC,RMERZ] “WAS. THERE A IVC ERROR?? 


Se eee —— ee - 
~ — ——<— rt me ee ee lt ee - 


SEQ O21/ 


ne 


172 055026 
173 055030 


206 055212 


055240 


NONMIMINSPNSM NNN 
—b owt wd So) I oe = J 
Omntwn— 


Coon 


RO 


228 055326 


000240 


032737 
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100000 
001346 


000002 
000070 


000001 


000002 
000010 


29000 
040000 
001346 
020000 
001346 
000004 
000104 
000002 
000010 


001140 
001742 
001140 


000000 


001346 
001140 
001140 
001142 


000000 


001546 
001140 
001140 
001142 


000000 


001546 
001376 
001140 
001140 
001142 


000000 
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BNE 10$ ;YES - DONT REPORT vv = 0 
MOV RMDSI,$GDDAT sEXPECTED STATUS 
MOV RMDSI,$BDDAT sRECEIVED STATUS 
BIS #VV,.SGDDAT 
ADD #4, (SP) s;MOVE SP TO USER‘S ERROR CALL 
MOVB #101,a(SP) WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
JSR PC,a@(SP)+ 
4 #10, (SP) ;MOVE SP BACK TO USER'S BRANCH 
N 
10$: 
sREPORT AN ERROR IF ATA IS NOT SET 
BIT HATA,RMDS1 :WAS ATA SET DURING RECALIBRATE?? 
BNE 11$ sves! 
MOV RMDSI,$GDDAT ‘ ERPECTED STATUS 
BIS HATA, $GDDAT 
MOV RMDS | $BDDAT ;RECEIVED STATUS 
ADD P) s;MOVE SP TO USER'S ERROR CALL 
MOVB mide, a (SP) s;WRITE ERROR NUMBER IN CALL 
SUB # (SP P) 
JSR PC, -a(SP)+ 
SUB #10, (SP) ;sMOVE SP TO USER'S BRANCH 
NOP 
11$: 
;REPORT AN ERROR IF ‘‘OM'’ IS NOT ZERO BECAUSE RECALIBRATE SHOULD 
zALWAYS CLEAR a! amet 
BIT RMDS I! :WAS ‘‘OM’’ RESET?? 
BEQ 138" s YES: ! 
MOV RMDSI, = EXPECTED STATUS 
BIC #0OM, $GDDAT 
MOV RMDSI, $BDDAT sRECEIVED STATUS 
ADD #4, (SP) -MOVE SP TO USER'S ERROR CALL 
MOVB #103,a(SP) ;WRITE ERROR NUMBER 
SUB #2, (SP) =MOVE SP TG RETURN FOR ERROR 
JSR PC,a(SP)+ ;REPORT ERROR VIA USER 
SUB #10, (SP) =MOVE SP TO USER'S BRANCH 
NOP 
12$: 
sREPORT AN ERROR IF ‘PIP’ IS STIL ON, I.E., DRIVE NOT ON 
; CYLINDER 
BIT APIP,RMDSI :IS DRIVE OFF CYLINDER?? 
BEQ 13$ >NO! 
BIT ASKI,RMER2Z! “WAS” ‘'SKI"' DETECTED?? 
BNE 1 sYES-DONT REPORT ‘PIP’ 
MOV RMDSI,$GDDAT “EXPECTED STATUS 
BIC #PIP,SGDDAT 
MOV RMDSI,$BDDAT sRECEIVED STATUS 
ADD #4,(SP) ;MOVE SP TO USER'S ERROR CALL 
MOVB #104 ,a(SP) -WRITE ERROR NUMBER 
SUB #2, (SP) sMOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ 
a #10, (SP) sMOVE SP BACK TO USER'S BRANCH 
N 


RoRoMoMINVAIND 
QRARY 
=) 
vi 
wn 
rs 
) 


$$ 055330 


32 055530 
33 955336 


239 055356 


247 055420 


250 055420 


275 055562 
276 055566 
277 055570 
278 


279 


280 055570 
281 055574 
282 600 


285 055610 


%32737 
001514 


032737 


000240 


032737 


105776 
001405 


162716 


“7RMMBO RMOS/3/2 FCTNL TST 1 
RECAL IBRATE STATUS CHECK SUBROUTIN 


040006 


000002 
001350 
000002 
001350 
000004 
000105 
000002 


000010 


000004 
001350 


000010 


040000 
000200 
001350 


000002 
000010 


000004 
000000 


000004 


000004 


001350 


001350 
001140 
J01140 
001142 


000000 


001350 
001140 
001140 
001142 


000000 


001350 
001376 
001140 
001140 
001142 


000000 


13$: 
-See if 


>REPORT 


14$: 
;REPORT 


15$: 
;REPORT 


16$: 
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""ILR'' OR *'RMR"’ "'UNS'' IS SET 
BIT #ILR'RMR'UNS. RMER1 | 
BEQ 16$ 


ee ERROR IF n_ater 1S SET 
BIT #ILR,RMER1] 
148" 


MOV wn adeent 


WAS ILR SET DURING RECALIBRATE ?? 
EXPECTED STATUS 

sRECEIVED STATUS 

:MOVE SP TO USER'S ERROR CALL 

) E ERROR NUMBER IN CALL 

“MOVE SP TO RETURN FOR ERROR 


sMOVE SP TO USER'S BRANCH 


oor 
JSR PC,a(SP)+ 
SUB #10, (SP) 


AN ERROR IF ''RMR'' IS SET 
B ARMR ,RMER11 


; 
MOV RMER11,$GDDAT 
BIC #RMR, SGDDAT 
MOV RMER11, $BDDAT 
ADD #4, (SP) 

MOVB #106,a(SP) 
SUB #2, (SP) 

JSR PC,a(SP)+ 

SUB #10, (SP) 


;WAS RMR SET?? 
“EXPECTED STATUS 


sRECEIVED STATUS 

sMOVE SP TO USER’S ERROR CALL 
WRITE ERROR NUMBER IN USER‘S CALL 
:MOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 

;MOVE SP TO USER'S BRANCH 


NOP 

AN ERROR IF ‘UNS'' IS SET AND 'DVC' IS 0 

ao #UNS ,RMERTI ;WAS UNSAFE ON?? 

BIT ADVC.RMER21 WAS. THERE A DEVICE CHECK?? 
BNE 16$ ;YES - DON'T REPORT UNSAFE 


MOV RMER1I, SGDDAT “EXPECTED STATUS 
BIC #HUNS , $GDDAT 

MOV RMERT I. $BDDAT  ;:RECEIVED STATUS 

ADD SP) >MOVE SP TO USER'S ERROR CALL 
MOVB nO? a(SP) “WRITE ERROR NUMBER 

SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT ERROR VIA USER 

SUB #10, (SP) “MOVE SP BACK TO USER'S BRANCH 


sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
ADD #4, (SP) ;MOV 


17$: 


E SP TO USER*S ERROR CALL 


TSTB a (SP) ;WAS AN ERROR REPORTED?? 
BEQ 17$ :NO!! 
“9g a ;YES - AUGMENT SP RETURN 


SUB 44,(SP) ;NO ERROR = RETURN SP TO BRANCH 


re ce ee ee a ee eee oe — Soe ee ee ee oe -_—_— 


SEQ 021% 


-——= 
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286 055614 000240 18$: NOP 
287 055616 000207 RTS PC sSTATUS CECK IS COMPLETE 


Z7RMMBO RMO5/3/2 FCINL TST 1 
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} .SBITL DRIVE CLEAR STATUS CHECK SUBROUTINE 
3 : BR 22? RETURN HERE IF NO ERROR 
é NOP RETURN HERE TO REPORT AN ERROR 
5 : ERROR ERROR NUMBER DEFINED BY SUB 
6 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
; : 22? RETURN HERE IF NO MORE ERRORS 
2 055620 DRVSTS: 
11 :CLEAR USER'S ERROR CALL ; 
12 055620 062716 000004 ADD #4, (SP) ;MOVE SP TO ERROR CALL 
13 055624 105076 000000 CLRB = a SP) =CLEAR ERROR CALL 
14 055630 162716 000004 SUB #4, (SP :MOVE SP TO USER'S BRANCH 
15 “REPORT ERROR IF RMCS1 NOT INITIALIZED 
16 055634 013737 001334 001142 4s: MOV RMCS11,$BDDAT  ;CHECK RMCS1 . 
17 055642 042737 173700 001142 BIC #*C<DVA'FNCMSK>,$BDDAT ;CLEAR DONT CARES 
18 055650 012737 004010 001140 MOV #DVA!DRVCLR, SGDDAT ZEXPECT DVA 
19 055656 023737 001140 001142 CMP $GDDAT,$BDDAT  ;COMPARE EXPECTED & RECEIVED 
20 055664 001443 BEQ 6$ “BRANCH IF EQUAL 
55666 062716 000004 ADD #4, (SP) “MOVE SP TO ERROR CALL 
055672 112776 000141 000000 MOVB = #141, a(SP) WRITE NUMBER OF ERROR IN CALL 
055700 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
055704 004736 JSR PC. a(SP)+ ;REPORT THE ERROR VIA USER 
055706 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 
055712 000240 NOP 
;REPORT ERROR IF RMDS NOT INITIALIZED 
055714 013737 001346 001142 §s: MOV RMDSI,$BDDAT —; CHECK RMDS 
055722 042737 021101 001142 BIC #PGM'OM'VV'PIP,$BDDAT ; CLEAR DONT CARES 
055730 012737 010600 001140 MOV #MOL 'DPR! DRY, $GDDAT ZEXPECT DRY & DPR 
055736 023737 001140 001142 CMP $GDDAT,S$BDDAT ; COMPARE EXPECTED & RECEIVED 
32 055744 001413 BEQ 6$ “BRANCH IF EQUAL 
33 055746 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 
34 055752 112776 000142 000000 MOVB  #142,a(SP) “WRITE NUMBER OF ERROR IN CALL 
%5 055760 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
36 055764 004736 JSR PC a(SP)+ “REPORT THE ERROR VIA USER 
37 055766 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
38 055772 000240 NOP 
39 {REPORT ERROR IF RMERT NOT INITIALIZED 
40 055774 005037 001140 6$: CLR $GDDAT ;EXPECT O'S 
41 056000 013737 001350 001142 MOV RMERTI,$BDDAT  : CHECK RMERI 
42 056006 001413 BEQ 8$ “BRANCH IF EQUAL 
43 056010 062716 000004 ADD 44, (SP) :MOVE SP TO ERROR CALL 
44 056014 112776 000143 000000 MOVB = #143,,a(SP) “WRITE NUMBER OF ERROR IN CALL 
45 056022 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
46 056026 736 JSR PC a(SP)+ :REPORT THE ERROR VIA USER 
47 056030 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
48 056034 000240 NOP 
49 ;REPORT ERROR IF ATA NOT INITIALIZED 
50 056036 013737 001352 001142 &$: MOV RMASI,SBDDAT CHECK ATTENTION B11 
51 056044 010146 MOV R1,-(SP) PUSH R1 ON STACK 
52 056046 010246 MOV R2,-(5P) SEPUSH R2 ON STACK 
53 056050 013701 001464 MOV TSTQUE ,R1 
54 056054 116102 01 MOVB —-1(R1) ,R2 
55 056060 0462702 177400 BIC #*CATNMSK ,R2 
56 056064 105102 COM R2 
57 056066 040237 001142 BIC R2, $BDDAT . 


_— OE ee 


eae ee we we eee ee 
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DRIVE 


88 056256 
89 056262 
90 056264 
91 056270 
4 056272 


94 056276 
95 056304 


96 056306 
97 056312 
100 056326 
101 056332 
102 

103 056334 


104 056342 
105 056344 


001142 


000004 
000144 
000002 


000010 


001376 
000004 
000147 
000002 


000010 
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CLEAR STATUS CHECK SUBROUTINE 


001142 


000000 


001142 


000000 


REPORT 


15$: 
:REPORT 


:REPORT 
17$: 


18$: 
19$: 


MOV (SP) +, R2 ::POP STACK INTO R2 

MOV (SP)+,R1 7;POP STACK INTO R1 

1ST $BDDAT 71S ATTENTION CLEARED?? 

BEQ 9 “BRANCH IF ATTENTION CLEARED 
ADD (SP) “MOVE SP TO ERROR CALL 

MOVB = Thy a(SP) WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT THE ERROR VIA USER 
SUB #10, (SP) :MOVE SP TO NO ERROR Kr TURN 


NOP 
ERROR IF RMMR1 NOT INITIALIZED 
MOV RMMR11,$BDDA ; CHECK 


he 
BIC AWC!LS!LST,  SBDDAT ;CLEAR DONT CARES 
MOV AMWD , SGDDAT sEXPECT WRITE DATA ON 
CMP ScDDAT, SBDDAT ;COMPARE EXPECTED AND RECEIVED 
BEQ 11$ :BRANCH IF ZERO 
ADD #4, (SP) ot 4 SP TO ERROR CALL 
MOVB #145 ,a(SP) ;WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
JSR PC,a(SP)+ :REPORT THE ERROR VIA USER 
SUB #10, (SP) sMOVE SP TO NO ERROR RETURN 


NOP 
ERROR IF RMMR2 NOT INITIALIZED 
MOV paces] I,$BDDAT ;CHECK RMMR2 


BIC #ROA'ROB,$BDDAT :CLEAR REQA, REQB 

MOV eisTitaey $GDDAT sEXPECT TEST BIT ON 
CMP $GDDAT , $BDDAT : COMPARE EXPECTED & RECEIVED 
BEQ 15$ H IF EQUAL 

ADD #4, (SP) MOVE SP TO ERROR CALL 

MOVB #146,a(SP) WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) ° MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ ;REPORT THE ERROR VIA USER 
re #10, (SP) :MOVE SP TO NO ERROR RETURN 
CLR $GD ZEXPECT ZEROS 

ERROR IF AME C? NOT RESET 

MOV RMEC21.$BDDAT  :CHECK RMEC2 

BEQ 17$ =BRANCH IF 0 

ADD #4, (SP) :MOVE SP TO ERROR CALL 

MOVB  #150.a(SP) WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) “ MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT THE ERROR VIA USER 
SUB #10, (SP) :MOVE SP TO NO ERROR RETURN 
ERROR IF RMER2 NOT RESET 

MOV RMERZI S$BDDAT  ;=CHECK RMER2 

BEQ “BRANCH IF NO ERROR 

ADD it sp) *MOVE SP TO ERROR CALL 

MOVB #147,a(SP) “WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT THE ERROR VIA USER 
SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 
NO 


——— ee ce ooo 
— rr —. ee 


SS | LSS 


123 


056420 000207 
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afus CHECK SUBROUTINE 


CQ0004 


000004 
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i a. Pras 5) if ANY ERROR WAS FOUND 


218: 


sMOVE SP TO ERROR CALL 
TSTB a($P) ‘WAS AN ERROR DETECTED?? 


BEQ 21$ 


~+ ai ZYES = MOVE SP TO ERROR RETURN 
a #4,(SP) ;MOVE SP BACK TO NO ERROR RETURN 
RTS PC sRETURN TO USER 


OL Ee ED RE Ee — = 


— ee ee ee ™ 


LE en ee ee ee 
Eee 


D 
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-SBTTL SEARCH STATUS CHECK SUBROUTINE 


2 :THIS SUBROUTINE VERIFIES THE RESULTS OF SEARCH OPERATIONS USING 
4 :STATUS STORED IN THE GET BUFFER AND TEST CONDITIONS STORED IN THE 
5 :PUT BUFFER. 

| ; THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS 

- DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN 
9 ;THE USER'S "'ERROR’’ TRAP. 


: THE FOLLOWING CONDITIONS ARE CHECKED: 


Y ERROR WHICH OCCURRED WHILE 1: aa tote OR Be hla REMOTE 
REGISTERS. IS REPORTED, I.E., ‘MCPE’* = 1 OR‘ 


.'IAE’* STATUS IS CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED 
“BY THE PROGRAM, WHICH IS BASED ON FORMAT AND ADDRESS. 


.OPI'', IF SET, IS REPORTED AS 1) ‘‘OPI’’ DUE TO MOL = 0. OR 2) 
="OPI'' DUE TO ON CYLINDER LATCH. 


.‘IVC'’, IF SET, IS REPORTED AS 1) ‘’IVC’’ ERROR WITH VOLUME 
VALID ZERO, OR 2) ERRONEOUS ‘‘IVC'’ ERROR WITH VOLUME VALID SET. 


'§ 
% 
15 
16 
17 
18 
19 
20 
21 
22 
23 
oe 
25 ; . ‘SKI'* IS REPORTED IF SET 
26 
ce? 
28 
293 
31 
32 
33 
35 
37 
3 


. DVC*’ IS REPORTED IF SET 
-AN ERROR IS REPORTED IF *MOL’’ = 0, OR *PIP’’ = 1, OR ‘ATA’ = O, 


“OR ‘yy’ = 0. 
7 CALL 
301) JSR PC,SCHSTS 
=(2) BR ?? RETURN HERE IF NO ERROR 
:(3) NOP RETURN HERE TO REPORT ERROR 
3 (4) ERROR SUBROUTINE WILL LOAD ERROR @ 
: (5) JSR PC ,a(SP)+¢ GO BACK FOR MORE CHECKS 

> 3 (6) ?? RETURN AFTER ALL ERRORS REPORTED 

7 056422 SCHSTS: 

42 :CLEAR USER'S ERROR CALL 

43 056422 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 

44 056426 105076 000000 CLRB a(§P) CLEAR ERROR NUMBER 

45 056432 162716 000004 SUB #4, (SP) MOVE SP BACK TO NO ERROR BR 

ry 056436 005037 057764 CLR 200$ “CLEAR STATUS FLAGS 

48 ; TEST FOR MASSBUS ph a BUS PARITY ERROR WHEN WRITING REMOTE 

49 -REGISTERS, = FN 1 AND 'DPE*’ = 0. 

50 056442 032737 000010 001350 BIT bean MRMERT | sWAS PARITY ERROR DETECTED?? 

51 056450 001431 BEQ 10$ :NO!! 

52 056452 0632737 000010 001376 BIT #DPE ,RMER2 1 WAS IT CONTROL BUS ERROR?? 

‘7 056460 001025 BNE 10$ ;PROBABLY NOT!! 

55 ZREPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL 

56 056462 013737 001350 001740 MOV RMER11,$GDDAT sEXPECTED STATUS 

S7 056470 042737 000010 001140 BIC #PAR, $GDDAT 





Sr EE ee eee Ge ee ee 


58 056476 


VEARANVSISSHVSSRALASL 


&1 0 


100 0 


104 056712 


107 056716 


1 
2 
i 056752 


—_———_——_——— ee ee 


013737 
062716 
112776 
162716 
004736 


162716 
000240 
0004 30 


032737 
001426 


013737 


123737 
101016 


123727 
101410 
032737 
001406 
123727 
101002 
005037 
013737 
042737 
023737 
001004 
042737 
000413 
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001350 
000004 
000050 
000002 


000010 


001140 


001350 
175777 
001140 


040000 
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001142 
000000 


001334 


001140 
001140 
601142 


000000 


007140 


057764 
001333 


000035 
001442 
900037 


sRECEIVED STATUS 

iMOV : SP TO USER'S ERROR CAL! 
WRITE ERROR NUMBER IN CALL 

“MOVE SP_ TO RETURN IF ERROR 

;REPORT ERROR 

“RESTORE SP TO NO ERROR 


;SKIP FURTHER ERROR CHECKS 


>TEST FOR MASSBUS ee he PARITY ERROR WHEN READING REMOTE 


aaa ERROR DETECTED?? 


_— BUS PARITY ERROR VIA USER'S ERROR CALL. 


MOV RMER11,$8DDAT 
ADD #4, (SP) 
MOVB  4#50,a(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 
BR 15$ 
10$: 
“REGISTERS, I.E.. 
BIT WMCPE.RMCS1! 
BEQ 20$ 
sREPORT 
RMCS11,$GDDAT 
BIC #MCPE ,SGDDAT 
MOV RMCS11, $BDDAT 
ADD Py, j 
MOVR #13,a(SP) 
SUB #2, (SP) 
JSR PC. a(SP)+ 
SUB #10, (SP) 
NOP 
15$: JMP 150$ 
208: 


sEXPECTED STATUS 


sRECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER 

:MOVE SP TO RETURN IF ERROR 


:REPORT ERROR AND RETURN 
;RESTORE SP TO NO ERROR 


:OMIT STATUS CHECKING 


sDETERMINE THE VALUE OF ‘‘IAE*’ STATUS BASED ON TRACK, SECTOR AND CYLINDER 
;ALSO eae IF CYLINDER 3 IS TOO “T° GE. 


25%: 


30$: 


40$: 


#IAE,$GDDAT 
BIS #SK1,200$ 
CMP RMD CO, #822. 
BHi 30$ 
BIC #SkI ,200$ 
CMPB RMDAO+1 ,LSTRK+1 
BH] 30% 
CMPB RMDAO #29. 
BLOS 
BIT #FMT16,RMOFO 
REQ 30$ 
CMPB RMDAC 431. 
BH] 30$ 
CLR $GDDAT 

$BDDAT 

BIC #*CIAE,SBDDAT 
CMP $GDDAT, $BDDAT 
BNE 40$ 
BIC #SKI,200$ 
BR 50$ 


+ SETUP FOR IAE 


SETUP FOR SKI = 
:GREATER THAN Last CYLINDER ? 
YES ~ CYLINDER IS _ INVALID 


:*"SKI'* SHOULD BE ZERO 


;GREATER THAN LAST TRACK ? 
7YES = TRACK IS INVALID 


: SECTOR > 29. ? 
sNO!! 


:18 BIT FORMAT ? 

‘VES - - SECTOR 1S INVALID FOR 18 BIT MODE 
:SECTOR > 31. 

s¥ES = SECTOR is INVAL ID 


:""1AE*’ SHOULD = 0 
;COMPARE EXPECTED AND RECIVED ‘‘IAE’* STATUS 
MOV RMERII, 


sGET RECEIVED IAE 


:1S TAE CORRECT?? 
“SKI SHOULD BE ZERO 


EE ee Om rm ee re wre wee we ee ee 


= — -=— ae Sere 
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115 :REPORT INCORRECT JAE STATUS VIA USER'S ERROR CALL 

116 056752 062716 600004 ADD #4, (SP) :MOVE SP TO USER'S $ ERROR CALI 
117 056756 112776 000257 000000 MOVB #257,a(SP) “WRITE ERROR NUMBER IN CALL 
118 056764 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
119 056770 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
120 056772 162716 000010 SUB #10, (SP) “RETURN SP TO NO ERROR 

121 056776 000240 NOP : 

122 057000 S0$: 

124 :SEE IF ‘‘SkKI'' OR ‘DVC'' OR “IVC IS SET 

125 057000 032737 050200 001376 BIT #SKI!DVC!IVC,RMER2! :ARE ANY BITS SET?? 
126 957006 001531 BEQ 90$ NO! ! 

128 :REPORT ERROR IF ‘‘SKI'' IS SET AND ‘'SKI'' FLAG IS NOT SET 

129 057010 013737 001376 001142 MOV RMERZI1,$BDDAT  ;RECEIVED ‘'SkI'' STATUS 

130 057016 042737 137777 001142 BIC #*CSKI.$BDDAT 

131 057624 013737 057764 001140 MOV 200$, $GDDAT sEXPECTED '’SKI'’ STATUS 

132 057032 042737 137777 001140 BIC #°CSKI,$GDDAT 

133 057040 023737 001140 001142 CMP $GDDAT,$BDDAT 1S ‘SKI’ OK?? 

134 057046 001422 BEQ 60$ ;YES~CHANGE ERROR NUMBER 
135 057050 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
1% 057054 112776 000263 000000 MOVB  #263,a(SP) WRITE ERROR NUMBER 

137 057062 032737 040000 001140 BIT #SK1,$GDDAT “SHOULD ''SKI'' BE SET?? 

138 057070 001403 BEQ 55$ *NO!! 

139 057072 112776 000267 000000 MOVB  #267.a(SP) > YES=CHANGE ERROR NUMBER 
140 057100 162716 000002 55$: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
141 057104 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
142 057106 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 

143 057112 000240 NOP 

164 057114 60$: 

145 :REPORT ""IVC'’ ERROR AS 

147 : .1VC DUE TO LOSS OF VOLUME VALID 

148 : “ERRONEOUS IVC WITH VOLUME VALID SET 

149 057114 032737 010000 001376 BIT #IVC,RMERZ] :IS IVC SET?? 

150 057122 001433 BEQ 80$ *NO! ! 

1§1 057124 013737 001376 001140 MOV RMER21,$GDDAT  :EXPECTED STATUS 

152 057132 042737 010000 001140 BIC #IVC.$GDDAT 

15% 057140 013737 001376 001142 MOV RMER21.$BDDAT  -:RECEIVED STATUS 

154 057146 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
155 057152 112776 000264 000000 MOVR  #264,a(SP) ;WRITE ERROR NUMBER IN CALL 
156 057160 032737 000100 001346 BIT #VV.RMDS! WAS VOLUME VAL ID?? 

157 057166 001403 BEQ 70$ “NOT! 

158 057170 112776 000265 000000 MOVE  #265,a(SP) Es - CHANGE ERROR NUMBER 
159 057176 162716 000002 70$: SUB #2, (SP) -MOVE SP TO RETURN IF ERROR 
160 057202 004736 JSR PC. a(SP)+ “REPORT ERROR AND RETURN 
161 057206 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 

162 057210 000240 NOP 

163 057212 80$: 

165 , :REPORT ANY DEVICE FAULT, I.E.. ‘DVC'’ = 1 

166 057212 632737 000200 001376 BIT #DVC .RMER2] :WAS THERE A DEVICE FAULT?? 
167 057220 001424 ' BEQ 90$ :NO! ! 

168 097202 013737 001376 001140 MOV RMERZI,.$GDDAT  :EXPECTED STATUS 

169 057230 042737 000200 001140 BIC #DVC.$GDDAT 

176 057286 013737 (001376 «001142 MOV RMER2I, , SBDDAT RECEIVED STATUS 


171 057244 062716 000004 ADD #4 ,(SP “MOVE SP TO USER? S ERROR CALL 


ee I —eEeEeE———— 
—_—— 
. 
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172 057250 112776 000266 000000 MOV #266 a(sP) :WRITE ERROR NUMBER IN (4. | 
173 057256 162716 2 SUB 2, (§P) “MOVE SP TO RETURN IF ERROR 
174 057262 004736 ySR <3 ‘ai eb)e “REPORT ERROR AND RETURN 
175 057264 162716 000010 SUB #16, (SP) “RESTORE SP TO NO ERROR 
176 957270 000240 NOP 
177 057272 908: 
179 ;REPORT ANY ‘OPI’ ERROR AS 
180 : .OPI"’ BECAUSE MEDIUM IS NOT ONLI 
121 : “OPI BECAUSE ‘ON CYLINDER'' DIDN'T DROP 
182 057272 032737 020000 001350 BIT #OP] ,RMERT ;WAS OPI SET?? 
183 057300 001433 BEQ 110$ 
184 0573802 013737 001350 001140 MOV RMER11 ,$GDDAT ‘EXPECTED STATUS 
185 057310 042737 020000 001140 BIC #OP] ,$GDDAT 
186 057316 013737 001350 001142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 
187 057326 062716 000004 ADD #4. (SP) “MOVE SP TO USER'S ERROR CALL 
188 057330 112776 000270 000000 - MOVB #270,a(SP) “SETUP ERROR FOR MOL = 0 
189 057336 032737 010000 001346 BIT #MOL .RMDS | ;WAS MOL 0?? 
190 057344 001403 REQ 105$ “YES! 
191 657346 112776 000271 000000 MOVB  4#271.a(SP) “MOL WAS 1 = CHANGE ERROR 
192 057354 162716 000002 105$: SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
193 057360 004736 ISR PC’ a(SP)+ “REPORT ERROR AND RETURN 
194 057362 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
195 057366 000240 NOP 
196 057370 1108: 
198 :SEE IF ATA’ - *™oL’* = yy’ - 1 AND "pyp*’ = 0 
199 057370 013746 001346 MOV RMDSI,=(SP) :GET DRIVE STATUS 
200 057374 042716 047677 BIC #*C<ATA'PIP ‘MOL ‘VV>, (SP) 
201 057400 022726 110100 CMP #ATA'MOL ‘VV, (SB) 21S DRIVE STATUS CORRECT?? 
202 057404 001554 BEQ 150$ YES!! 
204 :REPORT AN ERROR IF MOL = 0 AND OPI ERROR WAS NOT REPORTED. I.E.. OPI = 0 
205 057406 032737 010000 001346 BIT #MOL .RMDS! :WAS MEDIUM OFF LINE ?? 
206 057414 001030 BNE 120$ “NO! ! 
207 057416 013737 001546 001140 MOV RMDSI.$GDDAT §_: EXPECTED STATUS 
208 057424 052737 010000 001140 BIS ao. . $GDDAT 
209 057432 013737 001346 001142 MOV RMDSI.$BDDAT  : RECEIVED STATUS 
210 057440 032737 020000 001350 BIT HOP] .RMERT! “WAS OPI REPORTED BEF ORE ?? 
211 057446 001013 BNE 120$ -YES = DON'T REPORT MOL = 0 
212 057450 062716 000004 _ ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
213 057454 112776 090272 000900 MOVB  #272.a(SP) “WRITE ERROR NUMBER IN CALL 
214 057462 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN IF ERROR 
215 057466 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
216 057470 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
217 057476 000240 NOP 
sig 057476 120$: 
220 :REPORT AN ERROR IF PIP IS STIL SET AND SKI IS RESET 
21 057476 032737 020000 001346 BIT #PIP RMDS] -1S POSITIONING IN PROGRESS?? 
2¢ 057504 001430 BEO 120$ “NO! ! 
223 057506 0632737 040000 001376 IT WSK] .RMER2! “WAS "'SKI'’ DETECTED?? 
24 057514 001024 BNE 130$— =YES=DONT REPORT PIP 
25 057516 013737 001346 001140 MOV RMDSI.$GDDAT : EXPECTED STATUS 
226 057526 042737 020000 001140 BIC 4PIP,$GDDAT 
227 057532 013737 001346 001142 MOV RMDSI,$BDDAT  §; RECEIVED STATUS 


228 057540 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR “ALL 
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SMM 
FAR 6 STATUS CHECK 5S UBRD 


057544 112776 
162716 
004736 
162716 
0002460 


000000 


fy) 
~~ 


000010 
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é 


032737 
30 
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Ww 
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241 


249 057654 
057656 
001346 
001140 
001140 
001142 


04. 
. 900000 


1000C0 
001 346 


057656 


666 
057674 
257 057702 
258 057710 
259 057714 


057762 
057764 


" O04 . 00 
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MOVE #273,a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (§P) “MOVE SP TO RETURN JF ERROR 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) “RESTORE SP TO NO ERROR 
NOP 

130$: 

:REPORT AN ERROR IF VOLUME IS NOT VALID AND IVC = 0 
BIT v VV,RMDS 1 :1S VOLUME VALIv?? 
BNE 40$ “YES! ! 
BIT PIVC RMERZ! ;WAS IVC DETECTED?? 
BNE 140$ YES = DON'T REPORT Vv = 0 
MOV RMDSI,$GDDAT “ EXPECTED STATUS 
BIS #VV,$GDDAT 
MOV RMDS1, $BDDAT :RECEIVED STATUS 
ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
MOVB  #350.a(SP) ;WRITE ERROR NUMBER IN CALL 
SUB #2, ( MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) “RESTORE SP TO NO ERROR 

140$: 

:REPORT AN ERROR IF ATTENTION IS NOT SET 
BIT #ATA,RMDS! :1S ATA ON?? 
BNE 150$ “YES!! 
MOV RMDS1,$GDDAT “EXPECTED STATUS 
BIS HATA, $GDDAT 
MOV RMDSI,$BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) MOVE SP TO USER'S ERROR CALL 
MOVB #351,a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) “RESTORE SP TO NO ERROR 
NOP 

150$: 

;ARGUMENT THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
ADD #6, (SP) :MOVE SP TO USER'S ERROR CALi 
TSTB. ~—s_ aC SP) :WAS ERROR FOUND?? 
BEQ 160$ =NO!! 
ADD #4, (SP) *YES = CHANGE RETURN 
BR 170$ 

160$: SUB #4, (SP) :NO ERROR FOUND 

170$: RTS PC “RETURN TO USER 

200$:  . WORD - STORAGE FOR FLAGS 


I 
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AT] DRIVE STATUS Cece SUBROUTINE 
.SRITL STATIC DRIVE STATUS CHECK SUBROUTINE 
z :THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
4 >STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 


;CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHITH THERE 
:SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 


- : THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
; -MOL = 0. INDICATES DRIVE WENT OFFLINE, NOTE 
=THAT MOL IS ASSUMED TO HAVE BEEN SET 
3 ; .VV = 0, INDICATES THE DRIVE LOST VOLUME VALID 
4 : "PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 
15 “SKI = 1, INDICATES THE DRIVE HAS AN UNEXPECTED Sk] ERROR 
16 : -DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 
18 : THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 
| 20 201) JSR PC, STCDRVSTS 
| 27 : BR 279 RETURN HERE IF NO ERROR 
| 22 : NOP RETURN HERE TO REPORT AN ERROR 
23 : ERROR ERROR NUMBER DEFINED BY SUB 
24 : JSR PC a(SP)+ GO BACK 10 SUB FOR MORE ERROR CHECKS 
25 : 23? RETURN HERE IF NO MORE ERRORS 
e7 057766 STCDRVSTS: 
293 :CLEAR USER'S ERROR CALL 
| 30 057766 062716 (000004 ADD #4,(SP) ;MOVE SP TO USER'S ERROR CALL 
31 057772 105076 000000 CLRB = a SP) =CLEAR ERROR NUMBER 
32 057776 162716 000004 SUB #4, (SP) MOVE SP BACK TG NO ERROR RETURN 
33 :SEE IF *MOL'’ = "‘VV'' = 1, AND PIP" 
34 060002 013746 001346 MOV RMDSI,-(SP) :PUT DRIVE STATUS ON STACK 
35 060006 042716 147677 BIC #°C<PIP'MOL !VV>, (SP) 
36 060012 022726 010100 CMP #MOL'VV,(SP)+ :ARE MOL.VV AND PIP 0.k.?? 
37 060016 001524 BEQ 30$ YES! ! 
| 9 :REPORT AN ERROR IF MOL = 0 AND ‘OPI’ = 0 
40 060020 032737 010000 001346 BIT #MOL .RMDS I :1S$ MOL ON ?? 
| 41 OA0U2Z6 001030 BNE 10$ “YES 
| 42 (.0030 032737 020000 001350 BIT #OP].RMER1] “WAS ‘OPI’ SET?? 
43 060036 001024 BNE 10$ =YES=DONT REPORT 'MOL’’ = 0 
44 060040 013737 001346 001140 MOV RMDSI.$GDDAT §_ : EXPECTED STATUS 
45 060046 052737 010000 001140 BIS #MOL , $GDDAT 
46 060054 013737 001346 001142 MOV RMDS], $B8DDAT :RECEIVED STATUS 
47 060062 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
48 060066 112776 000207 000000 MCVB  4#207,a(SP) “WRITE ERROR NUMBER IN CALL 
| 49 060074 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
50 060100 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
| 51 060102 162716 000010 SUB #10, (SP) ;MOVE SP BACK TO NO ERROR RETURN 
52 060106 000240 NOP 
53 060110 10$: 
55 :REPORT AN ERROR IF VOLUME VALID IS NOW, ZERO AND “ryc’’ = 0 
56 060110 032737 000100 001346 BIT #VV,RMDS 1 “tS "vy" = 02? 
$7 060116 001030 BNE 20$ *NO!! 


em ee ae ee . 
- LE eS ee eee eee 


032737 

001924 

013757 
36 
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010000 
001346 
000100 
001346 
000004 
000210 
000002 


000010 


J 
MACRO V04.00 4-APR=-81 11:43:28 PAGE 3-1 


001376 
001140 


001346 
001376 
001140 
001140 
001142 


000000 


001376 
001140 
001140 
001142 


000000 


001376 
001140 


20$: 
;REPORT 


40$: 
ZREPORT 


50$: 
;REPORT 


BIT #IVC,RMERZ] 
BNE 20$ 

MOV RMDSI,$GDDAT 
BIS AVV,RMDSI 
MOV RMDS1,$BDDAT 
ADD #4, (SP) 

MOVB #210, a(s 

SUB #2, (SP) 

JSR PC a(SP)+ 
cB #109, (SP) 

OP 


IT ‘ 
BEQ 30$ 
BIT #SKI,RMER2] 
BNE 30$ 
MOV RMDSI ,$GDDAT 
BIC #PIP,$GDDAT 
MOV RMDS I ,$BDDAT 
ADD 44,(SP) 
MOVB #211,a(SP) 
SUB #2, (SP) 

JSR PC ,a@(SP)+ 
SUB #10, (SP) 
NOP 

7°" ~ *Dvyc’* = 0 


MOV PMER2 I ,~ (SP) 
BIC 


#*°C<SKI'DVC>, (SP) + 
60$ 


WAS “IVC"' SET?? 
S-DONT REPORT ‘V*" = 0 


YE 
ZEXPECTED STATUS 


sRECEIVED STATUS 


_ SP TO a? S ERROR CALL 
;WRITE ERROR NUMBER 


IN CALL 
sMOVE SP TO RETURN FOR ERROR 
;REPORT ERROR VIA USER 

“MOVE SP BACK TO NO ERROR 


AN ERROR IF DRIVE IS OFF CYLINDER AND ‘’SKI'’ = 0 
B APIP,RMDS] 21S DRIVE OFF CYLINDER?? 


“WAS ‘'SKI'' SET?? 
; YES=DONT REPORT ‘prp'’ » 4 


sEXPECTED STATUS 


sRECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 
;WRITE ERROR NUMBER IN USER'S CALi 
sMOVE SP 19 RETURN FOR ERROR 
sREPORT EFROR VIA USER 

sMOVE SP TO NO ERROR RETURN 


sPUT ERROR REG 2 ON STACK 
;BRANCH IF NO ERROR 


ANY DEVICE FAULT ?? 
- EXPECTED STATUS 


sRECEIVED STATUS 

sMCVE SP TO USER'S CALL 

7WRITE NUMBER OF ERROR IN CALL 
:MOVE SP TO RETURN FOR ERROR 
:REPORT ERROR VIA USER 

:MOVE SP BACK TO NO ERROR 


SEQ 
AN ERROR IF THERE IS A DEVICE FAULT 
BIT #DVC .RMER2] 

BEO 

MOV RMER21,$GDDAT 

BIC #DVC, $GDDAT 

MOV RMERCI . $BDDAT 

ADD #4, (SP) 

MOVB  #212.a(SP) 

SUB #2, (SP) 

ISR PC’ a(SP)+ 

SUB #10, (SP) 

NOP 


ay ERROR IF ‘'SKI*’ = 1 


IT ASKI,RMER21 
BEQ 60$ 
MOV RMER2] , $GDDAT 
BIC #SK1I,$GDDAT 
MOV RMER2] , $BDDAT 
ADD #4, (SP) 
MOVB #213,a(SP) 


;1S THERE A SEEK INCOMPLETE ERROR 
“EXPECTED STATUS 
:RECEIVED SATUS 


:MOVE SP TO USER'S ERROR CAL 
;WRITE ERROR NUMBER IN USER" S ERROR 


CAL 


-_— — GS SV <e 


115 peeres gah 000002 
117 060434 162716 000010 


000004 

123 060446 105776 000000 

125 060454 062716 000004 
000402 

27 060462 14 000004 
9 060470 000207 


MONRO 


-_——_— — -_—— ee ee ee ee eee oe eee ee 
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SUB «#2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC’ a(SP)+ ;REPORT ERROR VIA USER 
SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
NOP 
60$: 
;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
ADD #4, (SP {MOVE SP TO USER'S ERROR CALL 
TSB = @( SP) S AN ERROR DETECTED? 
BEQ 703 ‘NO! 
ADD 44. (SP) :YES - MOVE SP TO USER'S ERROR RETURN 
fale 
70$: SUB #4, (SP) ;NO = MOVE SP TO NO ERROR RETURN 
80$: NOP 
RTS PC ;RETURN TO USER 


LC EE EE ee ee ee — + + 


- 
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010046 
010146 
010246 
010346 
010446 
010546 

16646 000922 
016646 000022 
016646 000022 
016646 000022 
000002 
012666 000022 


-SBTTL SAVE AND RESTORE RO=-R5 ROUTINES 


“*M@RRRRRRARRRERARRREARARHREHRARHRAREHEAREHHRAREARHRE RARER AHRARAHAREARHEARE ARE e 


> *SAVE RO=R5 
¢*CALL: 


; VREG 
: {UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


 eTOP===( +16) 
;® +2-—=-(+18) 
+ +4=---R5 
sf *+G=—=—G 
s* +8=-=R5 
3*+10==-=R2 
3*+12==-R1 
3*+14=--R0 
$SAVREG: 
MOV RO,-(SP) 


MOV R1,~-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOV 22(SP) ,=(SP) 
MOV 22.S5P) ,~(SP) 
MOV 22(SP) ,=(SP) 
MOV 22(SP),-(SP) 


RTI 

PaCALL? RO-R5 

;*CALL: 

RESREG 
$RESREG: 

MOV (SP)+,22¢SP) 
MOV (SP) +,22 (SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,22 (SP) 
MOV (SP)+,R5 
MOV (SP) +,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RT] 


:;PUSH RO ON STACK 
:zPUSH R1 ON STACK 
:;PUSH R2 ON STACK 
7ZPUSH R3 ON STACK 
: PUSH R4 ON STACK 


:;PUSH RS ON STACK 

;; SAVE PS OF MAIN FLOW 
:; SAVE PC OF MAIN FLOW 
72 SAVE PS OF CALL 

zz SAVE PC OF CALL 


: ;RESTORE PC OF CALL 

; sRESTORE PS OF CALL 
STORE FC OF MAIN FLOW 

; ;RESTORE PS OF MAIN FLOW 

::POP STACK INTO R5 

:zPOP STACK INTO R4 

::;POP STACK INTO R3 


;;20P STACK INTO RO 


SES 02% 
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060 010146 
0605 016601 000006 
060574 261 
060576 112737 000060 060640 
| 060604 006101 
060606 0014 
060610 105537 060650 
| 040614 104401 060640 
060620 000241 
060622 000765 
660624 012601 
060626 016666 000002 000004 
060634 012616 
| 0606 36 2 
060640 000 000 


LS 


- SBTTL 


-*CALL: 


$TYPRBN: 


1$: 


2$: 


SHIN: 
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BINARY TO ASCII AND TYPE ROUTINE 


° SL ereearenaanaanaaaengaeeedasaanaenaenakenaraneatenenaneaaaaaenasene 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-4)" 
3; *BINARY=ASCI] NUMBER AND TYPE IT. 


NUMBER ,=- (SP) 


R1,-(SP) 
6(SP) ,R1 


#°0O,$BIN 
R 


(SP)+,R1 
2(SP) ,4¢(SP) 
(SP)+, (SP) 


0,0 


; NUMBER TO BE 
TYPE IT 


TYPED 


+3 SAVE R1 ON THE STACK 
THE INPUT NUMBER 
3eSET *'C’' SO CAN KEEP TRACK a 


(AE NUMBER OF BITS 


ee ii CHARACTER TO AN ASCII 


+éGET THIS BIT 


; DONE ? 
3 NO--SET THE CHARACTER FQUAL TO TH}S BIT 
:3G0 TYPE THIS BIT 
;;CLEAR ‘’C’’ SO CAN KEEP TRACK OF BITS 
+ 3G0 DO THE NEXT BIT 


;POP THE STACK INTO R1 


>: ADJUST THE STACK 


St tS oe TO VU 


; s STORAGE FOR ASCII CHAR, 


LL SE Ge 


SER 


AND TERMINATOR 


-=2 
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CONVERT BINARY 70 DECIMAL AND TYPE ROUTINE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


“RRA ARAARAAKAARARERARRARARARARAAKERARARAAHERHRAREEEEEEHS KEKE EHREHREAHEE 


® STHIS ROUTINE IS USED TO CHANGE A 16-811 BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER a TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


SEQ 0244 


— ee <— 


er ee ee ee 


>*REPLACED WITH SPACES. 


> *CALL: 
‘* MOV NUM, =(SP) ::PUT THE BINARY NUMBER ON THE STACK 
_ TYPDS *:GO TO THE ROUTINE 
060642 $TYPDS: 
060642 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
060644 010146 MOV R1,-(SP) - PUSH R1 ON STACK 
060646 010246 MOV R2,-(SP) - =PUSH R2 ON STACK 
060650 010346 MOV R3,-(SP) > :PUSH R3 ON STACK 
060652 010546 MOV R5,-(SP) :=PUSH R5 ON STACK 
060654 012746 020200 MOV #20200,-(SP) *:SET BLANK SWITCH AND SIGN 
660660 016605 000020 MOV 20(SP) .R5 ;3GET THE INPUT NUMBER 
060664 1 BPL 1$ “BR IF INPUT IS POS. 
060666 005405 NEG R5 > *MAKE THE BINARY NUMBER POS. 
060670 112766 000055 000001 MOVB = # "=, 1 (SP) :MAKE THE ASCII NUMBER NEG. 
060676 005000 1$: CLR RO 23.2 ERO THE CONSTANTS INDEX 
060700 012703 061056 MOV #$DBLK ,R3 :2SETUP THE OUTPUT POINTER 
060704 112723. 000040 MOVB #' ,(R%)¢4 s3SET THE FIRST CHARACTER TO A BLANe 
060710 005002 2%: CLR R2 «CLEAR THE BCD NUMBER 
060712 016001 061046 MOV $DTBL (RO) .R1 > :GET THE CONSTANT 
060716 160105 33: SUB 1,R5 | FORM THIS BCD DIGIT 
060720 002402 BLT 4$ > :BR IF DONE 
060722 005202 INC R2 -: INCREASE THE BCD DIGIT BY 1 
060724 000774 BR 3$ 
060726 060105 4$: ADD R1.R5 ::ADD BACK THE CONSTANT 
060730 0065702 TST R2 >:CHECK IF BCD DIGIT=0 
060732 001002 BNE 5$ -=FALL THROUGH IF O 
060734 105716 TSTR (SP) =:STILL DOING LEADING 0'S? 
060736 100407 ] 7$ -:BR IF YES 
060740 106316 5$: ASLB (SP) : =MSD? 
060742 103003 BCC 6$ . ::BR IF NO 
060744 116663 000001 177777 MOVB 1(SP) ,-1(R3) >: YES==SET THE SIGN 
060752 052702 000060 6$: BIS #°0,Re ;:MAKE THE BCD DIGIT ASCII 
060756 052702 000040 7$: BIS #" RO “MAKE IT A SPACE IF NOT ALREADY A DIGIT 
060762 110223 MOVB _—R2, (R3) + -=PUT THIS CHARACTER IN THE OUTPUT BUFFER 
060764 5720 TST (RO) + == JUST INCREMENT ING 
060766 020027 000010 CMP RO,#10 s; CHECK THE TABLE INDEX 
060772 002746 BLT 2$ ::GO DO THE NEXT DIGIT 
060774 3002 BGT 8$ *:GO TO EXIT . 
060776 010502 MOV R5.R2 “GET THE LSD 
064000 764 BR 6$ -:GO CHANGE TO ASCII 
061002 105726 8$: TSTB (SP) + ;WAS THE LSD THE FIRST NON-ZERO? 
0610046 1 BPL 9$ -BR IF NO 
061006 116663 177777 177776 MOVB -1(SP),-2(R3)  ::YES=-SET THE SIGN FOR TYPING 
061014 105013 9$: CLRB (R3) **SET THE TERMINATOR 
0610:16 012605 MOV (SP) +,RS -:POP STACK INTO R5 
061620 012693 MOV (SP) +_R3 *:POP STACK INTO R3 
06°022 012602 MOV (SP)+_,R2 oe STACK INTO R2 
061026 012601 (SP)4-R1 “POP STACK INTO RI 


EE 
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061056 
000002 


SDTAL: 


(SP) +,RO 


r 
5(SP) .4(SP) 
(SP) +. (SP) 


B 3 
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3zPOP STACK INTO RO 
3é TYPE THE NUMBER 
SZ ADJUST THE STACK 
sZRETURN TO USER 


o~ ee SS eee 


ee es sess sesso 


—_— ee eee ee 


f 
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BINARY TO OCTA . 


CT 
TA. (ASCI]) AND T¥ 
-SBTTL BINARY TO OCTAL (ASCI]) AND TYPE 


: “Ree KReRRAtaHaReetketahekenaeeaeaneeeaeaanetenene 


-*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6<DIGIT 
=*OCTAL (ASCII) NUMBER AND TYPE IT. 
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TvPé 


3*CALL: 

3* MOV NUM , = (SP) 7 NUMBER TO BE TYPED 

* TYPOS :;; CALL FOR TYPEOUT 

;* -BYTE N 3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* BYTE ™ ::M=1 OR O 

3* 321=TYPE LEADING ZEROS 

s@ 32 0=SUPPRESS LEADING ZEROS 


> *$TYPON=----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
>*$TYPOS OR $TYPOC 


-*CALL: 
;* MOV NUM , = (SP) ; NUMBER TO BE TYPED 
:* T YPON :;;CALL FOR TYPEOUT 
ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> *CALL: 
52 MOV NUM ,- (SP) ; NUMBER TO BE TYPED 
:* TYPOC ;;CALL FOR TYPEQUT 
061066 017646 000000 $TYPOS: MOV a( SP) ,-(SP) :zPICKUP THE MODE 
061072 716637 000001 067317 MOVB 1(SP) , SOF ILL :;LOAD ZERO FILL SWITCH 
061100 112637 061313 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
061104 062716 000002 ADD #2, (SP) ; ADJUST RETURN ADDRESS 
061110 0004 BR $TYPON 
061112 112737 000001 061311 $TYPOC: MOVB #1 ,SOF ILL 77SET THE ZERO FILL SWITCH 
061120 112737 Q00006 061313 MOVB #6, SOMODE +1 SET FOR SIX(6) DIGITS 
061126 112737 OG000S 061310 S$TYPON: MOVB #5, S0CNT :7;SET THE ITERATION COUNT 
061134 010346 MOV R3,-(SP) : SAVE R3 
061136 010446 MOV R4,~(SP) 77 SAVE RSG 
061140 010546 MOV R5,-(SP) ZZ SAVE RS 
061142 113704 061313 MOVB SOMODE +1, R4 32:GET THE NUMBER OF DIGITS TO TYPE 
061146 005404 NEG R4 
061150 062704 000006 ’ ADD #6 RS ; SUBTRACT IT FOR MAX. ALLOWED 
061154 110437 061312 MOVB R4 , SOMODE 7: SAVE IT FOR USE 
061160 113704 06131? MOVB SOF ILL RS 77;GET THE ZERO FILL SWITCH 
C61164 016605 900012 MOV 12(SP),R5 :;PICKUP THE INPUT NUMBER 
061170 005003 CLR R3 3: CLEAR THE OUTPUT WORD 
061172 006105 1$: ROL R5 7 ROTATE MSB INTO ‘'C’’ 
061174 BR 3$ 3:GO0 DO MSB 
061176 006105 2$: ROL R5 > ;FORM THIS DIGIT 
061200° 006105 ROL R5 
061202 05 ROL R5 
061204 010503 MOV R5,R3 
061206 006103 3$: ROL R3 ;:GET .SB OF THIS DIGIT 
061210 105337 061312 DECB SOMODE :; TYPE THIS DIGIT? 
061214 100016 BPL 7$ ;;BR IF NO 
061216 042703 177770 BIC #177770,R3 3;GET RID OF JUNK 
061222 001002 BNE 4$ 3; TEST FOR O 
061224 005704 TST R4 > SUPPRESS THIS 0? 
061226 001403 BEQ S$ ;7;BR IF YES 
061230 005204 4$: INC R4 :;DON'T SUPPRESS ANYMORE 0O°S 


<_———- ae eee 
-_ ae ee wee ee lee —_—_—_—_——— er me wm wee ww 
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061 052703 000060 BIS #°O,R3 :iMAKE THIS DIGIT ASCII 
’ 0 600040 S$: BIS a (RZ ::MAKE ASCII IF NOT ALREADY 
061242 110337 061306 MOVB 3.8% 7: SAVE FOR TYPING 
061266 104401 061306 TYPE ~f 35 GO TYPE THIS DIGIT 
061252 105337 061310 7$: DECB = $OCNT ;; COUNT BY 
061256 003347 BGT 7 7BR IF PORE TO DO 
061260 002402 BLT 6$ : F DONE 
061262 005204 INC R4 : INSURE LAST DIGIT ISN'T A BLANK 
061264 000744 BR 2$ ::GO DO THE LAST DIGIT 
061266 012605 6$: MOV (S)+,R5 RESTORE R5 
061270 912604 MOV (SP)+,R4 : sRESTORE R4 
061¢7e 912603 MOV (SP) +.R3 * SRESTORE R3 
061274 016666 000002 000004 MOV 2(SP) .4(SP) "SET THE STACK FOR RETURNING 
067302 012616 MOV (SP) +. (SP) 
061304 090002 RT] : :RETURN 
061 306 000 8$: .BYTE 0 Zz STORAGE FOR ASCII DIGIT 
061307 000 _BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
061370 000 SOCNT: .BYTE 0 ::OCTAL DIGIT COUNTER 
061311 000 SOFILL: .BYTE 0 7: ZERO FILL SWITCH 
661312 000000 SOMODE: .wORD 0 ::NUMBER OF DIGITS TO TYPE 


ieee 


- - — -——  w -- = 


- _—s- ——_——— See me Le ee ee 
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SEQ 0256 


.SBITL TYPE ROUTINE 


“@M@ReeReReReeeeeaaeeReteaeahaaeeaaeeaaaeaeeaneeaaanteeneaneaeaanaeaeaaae 


© SROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


**NOTE?: SNULi CONTAINS THE CHARACTER 10 BE USED AS THE FILLER CHARACTER. 
* *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER a ~ ita REQUIRED. 
s*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 
s*CALL: 
:*1) USING A TRAP INSTRUCTION 
yon TYPE »MESADR i2MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
*® 
-* TYPE 
se ME SADR 
105737 001173 $TYPE: TSTB STPFLG 3,18 THERE A TERMINAL? 
100002 BPL 1$ 7;BR IF YES 
000000 HAL T >;HALT HERE IF NO TERMINAL 
0004 30 BR 3$ 3; LEAVE 
010046 1$: MOV RO,-(SP) 7: SAVE RO 
017600 000002 MOV a2(SP),RO + 3GET ADDRESS A ASCIZ STRING 
122737 000001 001242 CMPB #APTENV, SENV 7 RUNNING IN APT MODE 
001011 BNE 62$ :NO,GO CHECK FOR APT CONSOLE 
132737 000100 001243 BITA #APTSPOOL , SENVM : SPOOL MESSAGE TO APT 
001405 BEQ 62$ 7NO,GO CHECK FOR CONSOLE 
010037 061364 MOV RO,61$ >: SETUP MESSAGE ADDRESS FOR APT 
004737 066066 JSR PC, SATY3 3 SPOOL MESSAGE TO APT 
000000 61$: -.WORD 0 sMESSAGE ADDRESS 
132737 000040 001243 628: BI IB #APTCSUP,.SENVM APT CONSOLE SUPPRESSED 
001003 BNE 60$ 7 YES,SKIP TYPE OUT 
112046 23: MOVB (RO) +,-(SP) +: PUSH CHARACTER TO BE TYPED ONTO STACK 
001005 BNE 4$ ;;BR IF IT ISN'T THE TERMINATOR 
005726 TST (SP) + :21F TERMINATOR POP IT OFF THE STACK 
012600 60$: MOV (SP) +,RG : RESTORE RO 
062716 000002 3$: ADD #2, (SP) : :ADJUST RETURN PC 
000002 RT] * 4 URN 
122716 000011 4$: CMPR WHT, (SP) > BRANCH IF <HT> 
001430 BEQ 8 
122716 000200 CMPB MCRLF , (SP) 7 BRANCH IF NOT <CRLF> 
001006 BNE 5$ 
005726 TST (SP)+ ;;POQOP <CR><LF> EQUIV 
104401 TYPE + = TYPE A CR AND LF 
001217 $CRLF 
105037 061644 CLRB SCHARCNT :; CLEAR CHARACTER COUNT 
000755 RR 2$ Ley NEXT CHARACTER 
004737 061526 S$: JSR PC $TYPEC 7G0 TYPE THIS CHARACTER 
123726 001172 6%: CMPB SFILLC,(SP)+ :IS IT TIME FOR LES CHARS. ? 
001350 BNE 2$ :1F NO GO GET NEXT CHAR. 
013746 001170 MOV SNULL ,~ (SP) “GET # OF FILLER CHARS. NEEDED 
te THE NULL CHAR, 
105366 000001 7$: DECB 1(SP) ;DOES A NULL NEED TO BE TYPED? 
002770 BLT 6$ : :BR IF NO=-GO POP THE NULL OFF OF STACK 
004737 061526 JSR PC, STYPEC 1360 TYPE A NULL 
105337 061644 DECB SCHARCNT :DO NOT COUNT AS A COUNT 
000770 RR ’$ > LOOP 


Rmmrnonron woe 
ENVOK RSW 


PELBEREE BLES 
a 


Ww 
kK 
> 


PERBRER 
P2885 


RERRRREE 
FEFEACRR, 
AHEMONMIdDL NM 
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112716 


005726 


? a 


117426 
117422 
177600 
000023 
117402 
117376 


177600 
600021 


117360 


000002 
000015 


061644 
000012 
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067644 


117382 
000062 


000002 


>HORIZONTAL TAB PROCESSOR 


8$: 
9$: 


STYPEC: 


101$: 


102$: 
10$: 


1$: 


B 
SCHARCNT : .WORD 
$TYPEK: RTS 


@° (SP) 

PC ,STYPEC 
#7, $CHARCNT 
9$ 


(SP) + 

2$ 

@a$TKS 

10$ 
a$TKB,=(SP) 


#177600, (SP) 
#SXOFF (SP) 
102$ 


a$TKR, (SP) 
#177600, (SP) 
#SXON, (§P) 


(SP) + 


a$TPSs 


10$ 
2(SP) ,a$TPR 
ayreeter? 


SCHARCNT 
$TYPE 
MLF ,2¢SP) 
ST YPEX 
(PC)+¢ 


PC 


oO 


37REPLACE —" SPACE 


$3 oa A SPA 
ee ee IF NOT AT 


‘es STOP 
‘i pop SPACE OFF STACK 
:;GET NEXT CHARACTER 


37 CHAR IN KYBD BUFFER? 
: IF NOT 
:GET CHAR 


STRIP ee BITS 
i Sa XOF 


sZWAIT FOR CHAR 


:;GET CHAR 
;iSTRIP IT 
77WAS JT KON? 


F NOT 


zcF IK STACK 


;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
i315 age Mh A CARRIAGE RETURN? 


IF NO 
iE YES==CLEAR CHARACTER COUNT 


BE > | re Gee LINE FEED? 


7 sBRANCH IF 


32 COUNT THE CHARACTER 
3; CHARACTER COUNT STORAGE 


061650 


062042 
062050 


104410 
004737 
032777 
001402 
0001 $7 
000416 
013746 


062512 
040000 


062516 


000004 
061720 
177060 
000004 


000004 
000400 


117206 
000067 
001116 
062334 
001122 
001117 
177777 
000004 
062042 
177766 


177777 
062056 


MACRO \ 


117270 


000004 


117216 


063730 


000004 
063130 
0637 30 
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SCOPE HANDLER ROUTINE 


, Peter enaeenawraananatenenteanaennananaenanesananaanaasanenaatatare 


3*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMEN? 


:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:U>) 


;*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15 


:08> 


>*THE SWITCH OPTIONS a taae” BY THIS ROUTINE ARE: 


7 *SwWwl4=1 
$SCOPE: 


1$: BIT 


9$: 
: AABRASTART OF 
$xTSTR: BR 


5$: CMP 


8$: 
c$: TSTB 


20008: 


LOOP O 
LOUP ON 


TES 
INHIBIT 1 TTERAT IONS 


LOOP ON TEST IN SWR<7:0> 
;;SCOPE=I0T 


PC,STOP 
#81T14,aSWR 
9$ 

$UVER 


CODE FOR THE XOR 
6$ 


MFERRVEC ,-(SP) 
#5$ ,AFERRVEC 
a#1770 


LA 
(SP) +, (SP)+ 
eh -@fERRVEC 


;sTEST FOR CHANGE IN SOF T=SwWR 


;;LOOP ON PRESENT TEST? 
;:NO IF SW14=0 
;; JUMP OVER SCOPE ROUTINE 


TESTERAHAAA 
se lF RUNNING ON THE *‘KOR™’ TESTER CHANGE 
ZTHIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
[:SAVE THE CONTENTS OF THE ERROR VECTOR 
‘ie FOR TIMEOUT 
TIME OUT ON XOR? 
: RESTORE THE ERROR VECTOR 
::GO TO THE NEXT TEST 
;:CLEAR THE STACK AFTER A TIME OUT 
+ ¢RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


CODE FOR THE XOR TESTERMAMNA 


#81T08,aSwR 
2$ 


-(SP) 
aSwR, (SP) 
8$ 


° iit 
CSP) ,STSTNM 
(SP) 


(SP) 
#$SwOBTBiL, (SP) 
a(SP)+ $LPADR 
SOVER 


#-1 CPSAVE 
2003$ 


ERRVEC ,-(SP) 
#20008 , ERRVEC 
177766, CPSAVE 
2001$ 
#-1 , CPSAVE 
#20018, (SP) 


+: LOOP ON SPEC. TEST? 
F NO 


:CLEAR A TEMP. LOCATION 
: PICKUP THE DESIRED TEST NUMBER 
;BRANCH IF BAD TEST NUMBER IN SwR 
: CHECK THE NUMBER IN THE SWR 
;BRANCH IF TEST NUMBER IS Ou’ OF RANGE 
: : UPDATE THE TEST NUMBER 
Rey BY ONE 
Sst ALe THE TEST NUMBER AS AN INDEX 
-FORM THE ADDRESS OF TEST POINTER 
SET LOOP ADDRESS TO DESIRED TEST 
560 LOOP ON THE TEST 


Le THE BAD TEST NUMBER OFF OF THE STACK 


;HAS g* sug OCCURRED? 


SEE IF TIMEOUT WAS i ee RE CORDED 
3;K1CK AROUND ROUTINE IF S 

7: SAVE CONTENTS OF ERROR VECTOR 
> SETUP "TRAP* RETURN ADDRESS 


;:MOVE CPU ERROR REGISTER TO SPSAVE FOR TEST 


3;SET CPU ERROR REGISTER TIMEOUT INDICA 
22 SETUP RETURN ADDRESS 


_ 
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= wAND LER ROUT (NE 
062054 000002 at} 
062056 012637 (00006 2001$: MOV (SP) + ,ERRVE ( :;RESTORE CONTENTS OF ERROR VECTOR 
962062 022737 177777 063130 20028: CMP #-1, CPSAVE :;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
062070 001430 BEQ 2003$ : *BRANCH IF SO 
72 032737 000001 063130 BIT WBITOO,CPSAVE ::SEE IF THE POWER MONITOR BIT 1S ON 
062100 001424 BECO 2003$ + BRANCH TO CONTINUE ROUTINE IF (LEAR 
062102 042737 000001 177766 BIC #31T00,177766 ::CLEAR THE BIT FOUND TO BE SET 
062110 013746 001154 MOV SwR, = (SP) *:SAVE SWR ADDRESS 
062114 017646 000000 MOV a(5P),=(SP) “SAVE SWR VALUE 
062120 012737 000176 901154 MOV #176, SWR = :GET SOFTWARE SWR ADDRESS 
062126 011677 117022 MOV (SP). aSwR -:GET CURRENT SWR VALUE 
062132 042777 007000 117014 BIC #81709, aSwR ::DON'T ALLOW LOOP ON ERROR ON THIS FRROK 
062140 104177 EMT 177 *CALL SPECIAL POWER FAIL BIT ERROR CALI 
062142 012676 000000 MOV (SP) +, a(SP) “RESTORE SWR TO ORIGINAL VALUE 
062146 012637 001154 aid MOV (SP) +, SwWR “:RESTORE SWR ADDRESS 
062152 123737 001131 001117 CMPR = SERMAX,SERFLG =; : MAX. ERRORS FOR THIS TEST OCCURRED? 
062160 101015 BH] 3$ -:BR IF NO 
662152 032777 0C1000 116764 BIT #B1T09,aSWR ; sLOOP ON ERROR? 
062170 001404 REQ 4$ IF NO 
062172 013737 001124 001122 7$: MOV $LPERR,$LPADR ::SET LOOP ADDRESS TO LAST SCOPE 
062200 000446 BR SOVER 
062202 105037 001117 4$: CLRB = SERFLG :2ZERO THE ERROR FLAG 
062206 005037 001206 CLR $TIMES =: CLEAR THE NUMBER OF ITERATIONS TO MAKE 
062212 000415 BR 1$ *:ESCAPE TO THE NEXT TEST 
062214 032777 004000 116732 3$: BIT #RIT11,aSWR =: INHISIT ITERATIONS? 
062222 001011 BNE 1$ ::BR IF YES 
062224 005737 001230 TST $PASS :21F FIRST PASS OF PROGRAM 
062230 001406 BEQ 1$ INHIBIT ITERATIONS 
062232 005237 001120 INC SICNT >: INCREMENT ITERATION COUNT 
062236 023737 001206 001120 CMP $TIMES,SICNT ::CHECK THE NUMBER OF ITERATIONS MADE 
062244 002024 RGE SOVER “BR IF MORE ITERATION REQUIRED 
062246 012737 000001 001120 18: MOV #1,$1CNT : #REINITIAL IE THE ITERATION COUNTER 
062254 013737 062332 007206 MOV SMXCNT,STIMES -SET NUMBER OF ITERATIONS TO DO 
062262 105237 001116 $SVLAD: INCB $TSTNM =COUNT TEST NUMBERS 
062266 113737 001116 001226 MOVB  $TSTNM.$TESTN SET TEST NUMBER IN APT MAILBOX 
062274 011637 001122 MOV (SP), $LPADR :7SAVE SCOPE LOOP ADDRESS 
062300 011637 001124 MOV (SP), $LPERR -SAVE ERROR LOOP ADDRESS 
062304 005037 001210 CLR SESCAPE 7 CLEAR THE ESCAPE FROM ERROR ADDRESS 
062310 112737 000001 001131 MOVE  #1.$ERMAX “ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
062316 013777 001116 116632 $OVER: MOV $1STNM, aI SPLAY ; :DISPLAY TEST NUMBER 
062324 013716 001122 MOV $LPADR. (SP) FUDGE RETURN ADDRESS 
062330 000002 RTI > FIXES PS 
062332 000005 S$MXCNT: 5. : =MAX. NUMBER OF ITERATIONS 
062334 $SWOSTBL: 
000067 -REPT —_ $TN=1 

062334 010050 “WORD  -TST1#2 ::STARTING ADDRESS OF TEST 1 
062336 010250 -WORD  TST2+2 =: STARTING ADDRESS OF TEST 2 
062340 011120 “WORD TST342 =: STARTING ADDRESS OF TEST 3 
062342 011456 “WORD TST4+#2 >=STARTING ADDRESS OF TEST 4 
062344 011662 “WORD  TST5+42 >: STARTING ADDRESS OF TEST 5 
062346 012176 “WORD TST6+2 == STARTING ADDRESS OF TEST 6 

350 012356 “WORD  TST7+2 1: STARTING ADDRESS OF TEST 7 
162352 913430 -WORD 15710#2 -STARTING ADDRESS OF TEST 10 
062354 013730 “WORD TST114#2 [STARTING ADDRESS OF TEST 77 
162356 014146 "wORD «TST 1.262 STARTING ADDRESS OF TEST 12 


——_ ee ™ 
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12746 000140 
12746 062524 
000002 


PV 
N 
oO 


ono 


0127646 000240 


_— — o_o —_—_ ee 
~ - See es © SO eee ee er sw. 


;DROP PRIORITY TO A''tOW CONSOLE 


STOP: 
MOV 
MOV 
RT] 
643%: 


TSTE4+2 
TST65¢2 
TST6642 
IST6/+*2 


#PR3,-(SP) 
#64$,-(SP) 


; 7 STARTING 
77 STARTING 
:; STARTING 


; > STARTING 
INTERRUPT 


ADDRESS 
ADDRESS 


ADDRESS 
ADDRESS 


4) 
BSSSSSSSSSSSSSSRSSSS8ES 


77PUT NEW PS ON STACK 


;3PUT NEW PC ON 


STACK 


:;POP NEW PC AND PS 


ZRAISE PRIORITY TO JNHIRIT CONSOLE INTERRUPT 
scPul NEW PS ON STACK 


MOV 


#PR5 ,=(SP) 


— Cr —_— 8 OS ee ee seem c nnn c ccc cc nccccc ccc c cnc cc rn Ci tt ct - 


: 
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>» OPt HANDLER ROUTINE 


062530 012746 062534 MOV #65$,-(SP) 
062534 000002 RT] 

—- 062536 65%: 

0 062536 000207 RTS PC 


37°UT NEW PC ON STACK 
37POP NEW PC AND PS 


. RETURN 


SEG 07463 


105037 


012637 
022737 


105037 


032777 
001004 
004737 


063132 
001117 


001116 
002000 


001212 
001126 
001132 
000002 
116312 
001000 
000177 
063132 


177777 


177766 


177777 
062716 


000004 
177777 
000001 
000001 
000177 
063132 
020000 
063134 


ae 
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374 
364 


ad i 
asd and 
Oro 


001132 
007130 
116524 


001130 


063130 
000004 
063130 
063130 


063130 
065130 
177766 


063132 
001130 


116154 


. SBITL 


ERROR HANDLER ROUTINE 


SPS SRERAAARARARAARAAREAARERAEAKAAHHAKARHAKREHKeHAHATAeeaaaenaraeasane 
:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO ERRTYP ON ERROR 


SERROR: : 


7$: 


1$: 


1000$: 


1001$: 
1002$: 


1003$: 
1004$: 


T ON ERROR 


BELL 
LOOP ON ERROR 


N :;ERROR= 


IBSAVE 
SERFLG 

7S 
$TSTNM,@D1ISPLAY 
#31110. aSuR 
»$BELL 

$ERTIL 

(SP) , SERRPC 
#2, SERRPC 
@SERRPC ,$ITEMB 
#BITO9, aSWR 
1004 
#177,$1TEMB 
1004$ 

IBSAVE 

#-1, CPSAVE 
1004$ 
ERRVEC,-(SP) 
#1000$, ERRVEC 
177766, CPSAVE 
1001$ 

#-1, CPSAVE 
#1001$, (SP) 
(SP) +, ERRVEC 
#-1, CPSAVE 
1004$ 
#B1T00,CPSAVE 
1004$ 
#81T00,177766 
$1TEMB, IBSAVE 
#177.$1TEMB 
1004$ 

IBSAVE 
#B1T13,aSWR 
20$ 


PC,ERRTYP 


eTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
: INHIBIT ERROR TYPEOUTS 


EMT AND N=ERROR ITEM NUMBER 


Hh oe THE ITEM BYTE ar LOCATION 
;s TEST FOR CHANGE IN SOF T=SwR 
+i SET THE ERROR FLAG 

;DON'T LET THE FLAG GO TO ZERO 
::DISPLAY TEST NUMBER AND ERROR FLAG 
;;BELL ON ERROR? 
;sNO = SKIP 
:¢RING BELL 

; COUNT THE NUMBER OF ERRORS 
::GET ADDRESS OF ERROR INSTRUCTION 


:3STRIP AND SAVE THE ERROR ITEM CODE 
:;SEE IF LOOP ON ERROR IS SET 

;zBRANCH AROUND ROUTINE IF SO 

;;SEE IF THIS IS THE POWER FAIL CALL 

+: AROUND ROUTINE IF IT IS 

s3See ar a IS THE 2ND ERROR CALL IN THIS ROUTINE 


; ; BRAN SO 
+3 SEE ce Ay HAS CPU ERR REG TIMEOUT IMDICATION 


::SAVE CONTENTS OF ERROR VECTOR 
;:SETUP *TRAP’ RETURN ADDRESS 
;s;MOVE CPU ERROR REGiSTER TO CPSAVE FOR TEST 


:zSET CPU ERROR REGISTER TIMEOUT INDICATOR 
3zSETUP RETURN ADDRESS 


77RESTORE CONTENTS OF ERROR VECTOR 
77SEE IF CPSAVE HAS CPU ERR REG TIMEQUT INDICATION 
; «BRANCH IF SO 


;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
"BRANCH IF OK 

CLEAR THE BIT FOUND SET 
;MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 

::SET SITEMB TO SPECIAL POWER FAIL POINTER 

; BRANCH OVER IBSAVE CLEARING 


7; CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
72SKIP TYPEOUT IF SET 


3iSKIP TYPEOUTS 
327G0 TO USER ERROR ROUTINE 


CTRMMBO 8M05/3/2 FCTNL 
FRROR HANDLER ROUTINE 


104401 
122737 


001007 
113787 
004737 


104410 


032777 
001402 
013716 
005737 
001402 
013716 


022737 
001001 
105737 
001210 
000002 
000000 
000000 


TST 1 


001217 
00000' 


001130 
066076 


063132 
116102 


001000 


001124 
061210 


001210 
041630 


063132 


L 2 
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001242 
063034 


116066 


000042 


218: 
223: 
23: 
3$: 


4$: 


5$: 


6$: 


CPSAVE : 
IBSAVE : 


TYPE 


HALT 
TSTB 
BNE 
RT] 


. WORD 
. WORD 


SCRLF 
#APTENV,SENV 
SITEMB,21$% 
PC,SATY4 

) 

0 

22$ 

IBSAVE 

3$ 

aSWR 

3$ 


#B1T09,aSWR 
4$ 


$LPERR, (SP) 
ee 


5 

SESCAPE, (SP) 
ASENDAD ,a&42 
6$ 


IBSAVE 
7$ 


0 
0 


; RUNNING IN APT MODE 
+ ¢NO SKIP APT ERROR REPORT 

ITEM NUMBER AS ERROR NUMBER 
: REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

;3 SEE Ml IBSAVE IS LOADED 

; BRANCH IF NOT = NO 

; «HALT ON ERROR 

¢4SKIP IF CONTINUE 
LT ON ERROR! 


Test FOR CHANGE IN SOF T=SWR 
+s LOOP ON ERROR SwITCH SET? 
IF NO 


: FUDGE RETURN FOR LOOPING 
oO iF FOR AN ESCAPE ADDRESS 


F NONE 
FUDGE RETURN ADDRESS FOR ESCAPE 


;sACT=11 AUTO-ACCEPT? 
3;BRANCH IF NO 


;7SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
: }BRANCH BACK TO CALL ORIGINAL ERROR 


URN 
::LOCATION TO SAVE CPU a REG CONTENTS 


;z;LOCATION TO SAVE ITEM ByT 


HALT ON PWR MON BIT FRROR 


SEQ 0245 


_—-—— ~....— 


TRMMBO RMOS/3/2 FOTN 
ERROR TYPEQUT ROUTINE 


Se get a Sa a De® ne wad 
MO ODN MEW ~-ODW @ VP WMP wr 


—_— oe 


012737 
022700 
004 


013746 
104403 
003 


000 
005037 
113737 


TST 7 


064002 
001130 


mM 3 
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116010 


063260 


063260 


063260 


064000 


064002 





- SBITL 


ERROR TYPEOUT ROUTINE 


;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
+ *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


NUMBER, DRIVE TYPE, 


TEST NUMBER, ERROR NUMBER AND 


UNIT 
:spRocRAM COUNTER ARE PRINTED ON THE FIRST LINE; 


MESSAGE IS ASSEMBLED, 


ROR 
; *ONE OR yy SUCCEEDING LINES; 


PAIRE 
SAF TER THE ERROR MESSAGE. 


ERRTYP: SAVREG 
BIT 


SEQ 
JMP 


; TYPE UNIT NUMBER, DRIVE TYPE, 
; PROGRAM COUNTER 


TYPE 
TYPE 
MOV 
TYPOS 
-BYTE 


> TYPE 


2$: 
3$: . WORD 


"DRIVE TYPE! RMOS, 
MOV SBASE ,R 


RMDT (RO) RO 
#177740,RO 
#$RMO 


#SW13,aSWR 
1$ 


27% 


- SCRLF 
“ERTYOO 


$UNIT,-(SP) 


3 
0 


3, 3$ 
#24 ,RO 
2$ 


ASRMO2 , 3$ 
#25 ,,R0 
e$ 


#$RMOS , 5% 
#27 ,R0 
4$ 
-ERTYOS 

0 


FORMATTED AND PRINTED ON 


D LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 


; INHIBIT TYPEQUTS?7? 
“NO! ! 


- YE 
TEST 


sii 
NUMBER, ERROR NUMBER, AND 


: TYPE ‘DRvVA’’ 
:: SAVE SUNIT FOR TYPEOUT 


ge7 


YPE DRIVE NUMBER 


;:GO TYPE--OCTAL ASCII 
TYPE 3 DIGIT(S) 
: SUPPRESS LEADING ZEROS 


;GE 
3GE 


RMO3 OR RMO2 FOR UNIT UNDER TEST 


T RM BASE ADDRESS 
T DRIVE TYPE REGISTER 


;SAVE DRIVE TYPE BITS AND 


iGE 


T ASCII DRIVE TYPE 


:1S DEVICE AN RMO5 ? 
sVES :: 


;SAVE ASCII DRIVE TYPE 
4 Os ae AN RMO2 ? 


:SAVE ASCII DRIVE TYPE 
ENO! DEVICE AN RMO5 ? 


TYPE . se 
: TYPE DRIVE TYPE 


:DRIVE TYPE MESSAGE IS STORED HERE 


3 TYPE i ate” ERROR NUMBER AND PROGRAM COUNTER 
4$: TSTNMB ;LOAD TEST NUMBER FOR 


STESTN, TSTNMB 
/ERTYOI 
TSTNMB,~(SP) 


AwMOw 
za 


a 


RNMB 
1TEMB,ERRNMB 


; TYPE “'TST# 


>: SAVE TSTNMB FOR TYPEOUT 
7; TYPE TEST NUMBER 
3:GO TYPE=-OCTAL ASCII 
: 3 TYPE 3 DIGITC(S) 
; SUPPRESS LEADING ZEROS 


: LOAD ERROR NUMBER FOR 


YPEOUT 


Se ee ee + 


SS 


CZ7RMMBO RMO5/3/2 FCTNL 
ERROR TYPEOUT ROUTINE 


50 063322 
51 063524 


$2 


¢ 
0635350 


001406 
104401 
013746 


104403 
003 
000 


104401 
013746 


104403 
006 
001 


00 
011001 
001507 


012102 


TST 1 


064025 
064002 


064034 


001132 


064002 
063774 
001217 
868 
064052 


001562 


063612 
064004 
000015 
064007 
000012 


000011 — 


064007 
000007 


064007 
000040 
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5$: 


7$: 


8$: 


9$: 


11$: 


12$: 


13$: 


14$: 


BEQ 
TYPE 
MOV 


TYPOS 
-BYTE 
BYTE 
TYPE 
MOV 


TYPOS 


-BYTE 
BYTE 


BEO 


‘PPE lane NO ERROR CALLED 
73 SAVE ERRNMB FOR TYPEOUT 
3; TYPE ERROR NUMBER 
::GO TYPE=--OCTAL ASCI! 
3 3TYPE 3 DIGIT(S) 
| SUPPRESS LEADING ZEROS 
RTYO3 PE *PC=" 


SERRPC. -(SP) i Cae SERRPC FOR TYPEQUT 
*: TYPE PROGRAM COUNTER 
::GO TYPE=-OCTAL ASCII 

6 si TYPE 6 DIGIT(S) 

1 :; TYPE LEADING ZEROS 


5$ 
ERTYO2 
ERRNMB ,=(SP) 


+ idle Cs aaa” TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
6$: ERRNMB 


WAS AN ta CALLED? 


7 ‘BR IF YES 

27$ “NO="EX I 

$CRLF :YES-TYPE CRLF 

BOTFLG “CLEAR BOT FLAG 

CHRCNT “CLEAR CHARACTER COUNTER 

ERRNMB , RO “RO POINTS TO FIRST OF 

#177,R0 “SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
8$ “BRANCH IF NOT 

#PFECH,RO “MOVE POWER FAIL ERROR CALL TABLE TO RO 

RO :FOUR ENTRIES IN ERROR . 
RO ; TABLE 

RO 

#SERRTB-8.,RO 

(RO) RI :R1 POINTS TO ERROR MESSAGE 

19$ “BRANCH IF NO ERROR MESSAGE 

MESSAGE 


(R1)+,R2 ;R2=ADDRESS OF MESSAGE STRING 
19$ ;BRANCH IF END OF MESSAGE 


R2,18$% ;LOAD ADDRESS OF STRING 
BOTADR :;CLEAR BOT ADDRESS 
(R2)+,R3 ; END OF STRING?? 
17$ YES! 
ACR,R3 : CARRIAGE RE TURN? ? 
12% ;NO! 
CHRCNT “YES= CLEAR CHAR COUNT 
11% GET wt! CHARACTER 
ALF R35 sLINE FEED?? 

1$ ; YES~-GET NEXT CHARACTER 
#HT RS “HORIZONTAL TAB?? 

14$ “NO! ! 
CHRCNT ADJUST CHARACTER COUNT 
#7, CHRCNT 
13$ 

15$ 
CHRCNT » INCREMENT CHARACTER (COUNT 
#’ (R53 ; SPACE ?? 

15$ as; ' 


———— ee — 


eee es eee 
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ERROR On TYPE OUT ROUT INE ‘a 

99 063540 010237 064004 MOV R2,ROTADR :SAVE ADDRESS ,0F SPACE 

100 063544 122737 (€00100 064007 158: CMPR #64.,CHRCNT * END OF L INE?? 

101 063552 103340 BHIS 11$ NO! 

102 063554 013704 064004 MOV BOTADR,R4 3GET “ADDRESS OF LAST SPACE 
103 063560 001007 BNE 16$ “BRANCH v SPACE DETECTED 
104 063562 1044601 001217 TYPE ,SCRLF s; TYPE CRL 

105 063566 105037 064007 CLRB —- CHRCNT — -SCLEAR CHARACTER COUNT 

196 063572 013702 063612 MOV 18$,R2 + SET UP R2 FOR TESTING 

107 063576 000726 BR 11$ 

108 063600 105044 16$: CLRB (24) ;REPLACE SPACE 

109 063602 112737 177777 064006 MOVB #-1,BOTFILG ;SET BOT FLAG 

110 063610 104401 17$: TYPE ; TYPE ERROR MESSAGE STRING 
111 063612 18$: » WORD STRING ADDRESS GCES HERE 
112 063614 105737 064006 TSTB BOTFLG ;WAS STRING TRUNCATED?? 
113 063620 001707 BEQ 10$ ZNO!! 

114 063622 104401 001217 TYPE ,SCRLF :YES=TYPE CRLF 

115 063626 105037 064006 CLRB = BOTFLG “CLEAR BOT FLAG 

116 063632 105037 064007 CLRB CHRCNT ; CLEAR CHARACTER COUNT 

117 0636 013702 064004 MOV BOTADR,R2 s;SETUP R2 FOR TESTING 

118 063642 010237 063612 MOV R2,18$ “SETUP 18$ FOR TYPING 

119 063646 112742 000040 MOVB #° .=(R2) “RESTORE SPACE 

120 063652 105722 TSTB (R2)+ :RESTORE R2 

if 4 063654 000677 BR 11$ : TYPE REST OF STRING 

123 ; TYPE ERROR HEADER AND ERROR DATA 

124 063656 016001 000002 19$: MOV 2(RO) ,R1 :R1 POINTS TO ERROR HEADER TABLE 

125 063662 001444 BEQ 27$ * BRANCH IF NO HEADER 

126 063664 104401 001217 TYPE ~SCRLF > (ASSUME NO DATA) 

127 063670 016002 000004 MOV 4(RO) ,R2 zR2 POINTS TO DATA ADDRESS TABLE 

128 063674 016003 000006 MOV 6(RO) R35 :R3 POINTS TO FORMAT TABLE 

129 063700 012137 063710 20$: MOV (R1)+,21$ PUT HEADER ADDRESS FOR TYPE 

130 063704 001433 BEQ 273% ;BRANCH IF END OF HEADERS 

131 : (ASSUME END OF DATA) 

132 063706 104401 TYPE 

133 063710 000000 21$: - WORD 0 ;HEADER ADDRESS GOES HERE 
134 063712 104401 001217 TYPE “SCRLF 

135 063716 005702 TST R2 ;DATA WITH HEADER?? 

136 063720 001767 BEQ 20% sNO!! 

137 063722 012204 MOV (R2)+,R4 sR4 POINTS TO DATA ADDRESS 
138 063724 012305 MOV (R3)+,R5 :RS POINTS TO FORMAT 

139 063726 105725 22%: TSTB —s (5) + :WHAT KIND OF DATA?? 

140 063730 100407 BMI 24$ “BINARY 

141 063732 001403 BEO 23$ SOCTAL 

142 063734 013446 MOV @a(R4)+,-(SP) sDECIMAL 

143 063736 104405 TYPDS 

144 063740 000405 BR 25$ 

145 063742 013446 23$: MOV @(R4)+,=-(SP) 

146 063744 104402 TYPOC 

147 063746 000402 BR 25$ 

148 063750 013446 24$: MOV a(R4)+,=(SP) 

149 063752 104406 TYPBN 

150 063754 005714 25S: TST (R4) :MORE DATA?? 

151 063756 001403 BEQ 26$ *NO!! 

152 104401 064042 TYPE ERTYOG sYES-TYPE 2 SPACES 

153 063764 000760 BR 22 >AND CONTINUE 

154 063766 104401 001217 263: | YPE ,SCRLF : TYPE ONE BLANK LINE 

155 063772 000742 BR 208 “BEFORE NEXT HEADER 


— — _—— 8 SS ee ee eee 
-_ - ee ee ee oes oe CA NE See SE -_ ——e ee es ee ee 


156 063774 
1S? 065776 
158 


SS et et et tL = 8 


G0 00 OO NN ~S 
NN ODRIRSARL 


104475 
000207 


ZRMMBO RMOS/3/2 FCINL TST 1 
FRROR TYPEOUT ROUTINE 


055 
064150 
000000 

117 
000000 

120 
000000 

000 
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273: 


PFECHS: 
PFECH4: 


RESREG 


RTS PC 
-WORD OQ ; TEST NUMBER 
-WORD QO ;ERROR NUMBER 
-WORD QO sBEGINNING OF TEXT ADDRESS 
-BYTE O :BOT FLAG 
BYTE 0 ; CHARACTER COUNT 
ASCIZ aDRvaa 
ASCIZ a, TEST#a 
-ASCIZ @, ERR 
ASCIZ a, PC= 
ASCIZ @ @ 
ASCIZ a-a@ 


PFECH1 ,PFECH2 ,PFECH3S,PFECH4 ;WORDS DEFINING TABLES BELOW 


$ «Me 
“ASCIZ ?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
PEECH2: . 


.+4,0 
yn ?CPUERRE S ? 


-EVE 
- WORD CPSAVE .0 
-BYTE 0,0 


ee 
re ee —_ 


_ 2 MMBC git f 3 PCT TS! 1 
Ty INPUT ROUTI 


064206 


pre? 
NIRS 


SER 
SEeSo 


WrMN— 
MAMO LO 


rs 


PSS SISSIES: 


S33 
ae 
Palas r De 


i 
| 


064207 


117746 


114676 
177600 
000021 


000003 


065406 
064210 


065450 
000007 


000176 


000001 
001212 


M4 TRO 


064202 
064204 
000060 
000062 
114702 


001154 


064200 


D 4 
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TTY INPUT ROUTINE 


PL SSAA AAS A AER HRAAAARH HAHAHA THEE EHHHEHAREEREEHEEEHHAREARE HH AEEe 


y¥046.00 4~APR-87 
-ENABL LSB 
STKCNT: WORD 
S$TKQIN: .WORD 
S$TKQOUT: WORD 
$TKQSRT: .BLKB 
S$TKQEND= 
EVEN 


0 
0 
0 
1 


3*TK INITIALIZE ROUTINE 


s*THIS ROUTINE WILL INITIA 


3 NUMBER OF ITEMS IN QUEUE 
37 INPUT POINTER 


. ggQUTPUT POINTER 


iz TTY KEYBOARD QUEUE 


LIZE THE TTY KEYBOARD INPUT QUEUE 


:*SETUP THE INTERRUPT VECT OR AND TURN ON THE KEYBOARD INTERRUPT 


>. 
° 

‘* 
& 

. 


$TKINT: 


= *CALL: 
J 


PC, STKINT 


STKCNT 


#STKOSRISTKOIN : 


STKQIN, $TKQOUT 

ASTKSRV ,@ATKVEC 

#200 ,a#TKVEC+2 
$TKB 


a 
#100, a$TKS 
PC 


:*TK SERVICE ROUTINE 


>*THIS ROUTINE WILL SERVICE THE 


:CLEAR COUNT OF ITEMS IN QUEUE 
:MOVE THE STARTING ADDRESS OF THE 


;s;QUEUE INTO THE INPUT & OUTPUT POINTERS. 


se INITIALIZE THE KEYBOARD VECTOR 
:3 “'BR'' LEVEL 4 


LAG 
: TENABLE TTY KEYBOARD INTERRUPT 
;:RETURN TO CALLER 


TTY KEYBOARD INTERRUPT 


:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*IT IN THE QUEUE. 


;*IF THE CHARACTER IS A ‘’CONTROL-C"* ( 
> *UPON RETURN EXIT IS MADE TO THE “‘CONTROL-C** RESTART ADDRESS (SHUT) 


$TKSRV: 


308: 


2$: 


MOVB 


a$TKB,-(SP) 
#°C177, (SP) 
(SP) ,#$XON 
30$ 

(SP)+ 

(SP) #3 

1$ 

,SCNTLCE 


PC ,STKINT 
(SP)+¢ 


ASWREG, SWR 
6$ 


TS lsc 
, SBELL 


(“C) STKINT IS CALLED AND 


::PICKUP THE CHARACTER 
;:STRIP THE JUNK 

31S IT A RANDOM XON? 

; BRANCH IF NO 

eh RANDOM XON OFF STACK 


221 IT A CONTROL C? 


CH IF NO 
=: TYPE A CONTROL-C (*0) 
7: INIT THE KEYBOARD 
;: CLEAN UP STACK 
3: CONTROL C RESTART 
::1S IT A CONTROL G? 
; sBRANCH IF NO . 
71S SOFT=SWR SELECTED? 
:;GO TO SWR CHANGE 


31S THE QUEUE FULL? 
: BRANCH IF NO 
>;RING THE TTY BELL 


—E 4 
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064360 005726 TS? (SP) i2CLEAN CHARACTER OFF OF STACK 
064362 000451 BR 5$ KIT 
064364 021627 000023 zg: CMP (SP) #23 21s IT A CONTROL =S? 
064370 001021 BNE 32$ :BRANCH IF 
064372 005077 114562 CLR asTKs ‘DISABLE rr KEYBOARD INTERRUPTS 
064376 005726 TST (SP) 7CLI AN CHAR OFF STACK 
064400 105777 114554 31$: STR @STKS alr FOR A CHAR 
064404 100375 BPL 31$ :7L0O0P UNTIL ITS THERE 
064406 117746 116550 MOVB  a$TKB,-(SP) ::GET THE CHARACTER 
064412 042716 177600 BIC #°°177, (SP) : MAKE 7 7<BIT ASCII 
064416 022627 000021 CMP (SP) +,#21 :1S IT A CONTROL=Q? 
064422 001366 BNE 31$ : ;BRAN CH IF NO 
064424 012777 000100 114526 MOV #100, a$Tks REENABLE TTY KEYBOARD INTERRUPTS 
064432 000002 RT! TURN 
064434 005237 064200 22%: INC STKCNT :3 COUNT THIS CHARACTER 
064440 021627 000150 CMP (SP) #140 “1S IT UPPER CASE? 
064444 002405 BLT 4$ > =BRANCH IF YES 
064446 021627 000175 CMP (SP) #175 sis IT A SPECIAL CHAR? 
064452 003002 AGT é$ “BRANCH IF YES 
664454 042716 000040 BIC #40, (SP) :MAKE IT UPPER CASE 
064460 112677 177516 4$: MOVB (SP)+, a@$TKOIN : AND PUT IT IN QUEUE 
064464 005237 064202 INC $TKQIN : UPDATE THE POINTER 
064470 023727 064202 064207 CMP $TKOIN, #STKQEND 7760 OFF THE END? 
064476 001003 BNE 5$ :BRANCH IF NO 
064500 012737 064206 064202 MOV #STKOSRT STKQIN ::RESET THE POINTER 
064506 000002 5$: RTI : RETURN 
3 SORA LTS S Ae SH IVSSHSR AIA SSHASKSHS KSSH S HERA ASKER ESAAAHAARELAEREAREAS 
>*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. : 
>*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SwlTCH REGISTER TRAP 
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
064510 022737 000176 001154 $CKSWR: CMP #SWREG, SWR :1S THE SOFT-SWR SELECTED 
064516 001124 BNE 15% EXIT If NOT 
064520 105777 114434 TSTB a$ TKS -1S A CHAR WAITING? 
064524 100127 BPL 15$ -:]F NOT, EXIT 
064526 117746 114430 MOVB  a$TKB,-(SP) >: YES 
064532 042716 177600 BIC #90177. (SP) *>MAKE IT 7=B81T ASCII 
064536 021627 000007 CMP (SP) #7 - 7:1S IT A CONTROL-G? 
064542 001300 BNE 2$ -:7F NOT. PUT IT IN THE TTY QUEUE 
=: AND EXIT 
. GRATER ASHER AEHAAAAAATERETAAAAAEAAEARAARAAEARAAAARAATR TEARS RASEEERS 
-*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
:*ROUTINE OR FROM THE SOF TWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
:*CONTROL<-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
064544 123727 00115¢ 000001 4%: [MPR = $AUTOB, #1 : ARE WE RUNNING IN AUTO-MODE ? 
064552 001674 BEO 2$ = BRANCH IF YES 
064554 005726 TST (SP) + =:CLEAR CONTROL=G OFF STACK 
064556 004737 064210 JSR PC $STKINT ss FLUSH THE TTY INPUT QUEUE 
064562 005077 114372 CLR astKs “DISABLE TTY KEYBOARD INTERRUPTS 
064566 112737 000001 001151 MOvVB #1,$INTAG -SET INTERRUP? MODE INDICATOR 
064574 104401 065420 TYPE LSCNTLG ::—CHO THE CONTROL=G (*6) 
064600 104401 065425 $G1SWR: TYPE  SMSWR >: TYPE CURRENT CONTENTS 
013746 000176 MOV SWREG,-(SP) :: SAVE SWREG FOR TYPEOUT 


064604 
064610 104402 TYPOC 3GO TYPE=-OCTAL ASCIICALL DIGI’ 
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oH MME 


"Ty [INPUT ROUTINE 


064612 
064616 
066 


064626 


104401 
6 


117746 
042716 


021627 


0654 $6 
114332 
114326 
177600 
000003 
065406 
000006 
007151 
000100 
065450 
060025 
065413 
000006 


000060 
000002 


000002 
177776 
001216 


000007 
114264 


114212 


000001 
114170 


9$: 


&$: 


BS: 
-DSABL 


BR 
TYPE 
BR 
LSA 


» SMNE wi 
=(SP) 
-(SP) 
a$TKs 
7$ 


a$7KR,-(SP) 
#*°C177, (SP) 
(S?) #3 

9$ 

~SCNTLE 
#6,SP 
SINTAG,#) 
8$ 

#100, ,a$1Kks 
SHUT 


(SP) ,#25 
10$ 
eSCNTLU 


2(SP) ,@SWR 
#6,SP 

, SCRLF 
SINTAG, #4) 
15$ 


#100, a8TKS 


PC STYPEC 
(SP) ,#60 
18$ 


2(SP) 
cere) tort 
7? 


$QUES 
50$ 


: «PROMPT FOR NEW Swk 


ST CHAR THERE ? 
>: ]— NOT TRY AGAIN 


ssPICK WC 


seMAKE IT PBT ASCII 


si1S IT A CONTROL=-C? 

7 BRANCH IF NOT 

ieYES, ECHO CONTROL=C (*C) 
32 CLEAN UP STACK 
;eREENABLE TTY KEYBOARD [NTERRUPTS? 
: ;BRANCH IF NO 

;;ALLOW TTY KEYBOARD INTERRUPTS 
32 CONTROL=C RESTART 


;s1S IT & CONTROL =U? 

3 ¢BRANCH IF NOT 

seYES, ECHO CONTROL-U (“*U) 
: IGNORE PREVIOUS INPUT 

SZLET'S TRY IT AGAIN 


i215 IT A <CR>? 


;BRANCH IF NO 
scYES, IS IT THE FIRST CHAR? 
; BRANCH IF YES 


L 
TTY KBD INTERRUPTS? 
NOT 
TTY KBD INTERRUPTS 


; a 
ssSTRIP-OFF ASCII 

3218 THIS THE FIRST CHAR 
aS ty” IF YES 

::NO, SHIFT PRESENT 

7 CHAR os TO MAKE 

; ROOM FOR NEW ONE. 
“:KEEP COUNT OF CHAR 


* = TYPE 2<CRD<LF> 
SIMULATE CONTROL =U 


fp ASSAASHSSHenaneceeaeeeeeeecaeReaenrensenswraseeneaeaesereaeceserenecees 
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TeMMBO AMOS /3/2 ECPM 157 MACRO v04.00 
**y NPL? HOT INE 
rer ROUTINE Witt INPUT A SINGLE CHARACTER FROM THE TTY 
e Ls 
:e RDCHR :;;GET A CHARACTER FROM a QUE Le 
:e RETURN HERE 3, CHARACTER IS ON THE STACK 
3° Z2WITH PARITY BIT STRIPPED OFF 
065052 011646 SRDCHR: MOV (SP) ,=(SP) 3zPUSH DOWN THE PC AND 
065054 016666 000004 000002 MOV 4(SP),2(5P) THE PS 
065062 005066 000004 CLR 4(5P) :;GET READY FOR A CHARACTER 
065066 005546 CLR -(SP) ::PUT NEW PS ON STACK 
5070 012746 065076 MOV #64$,-(SP) 77PUT NEW PC ON STACK 
065074 RTI ::POP NEW PC AND PS 
065976 643: 
965076 005737 064200 1$: TST STKCNT ::WAIT ON A CHARACTER 
065102 001775 BEQ 1$ 
065104 005337 064200 DEC STKCNT se One c THE COUNTER 
065110 117766 177070 000004 MOVB ve Me il 4(SP) T ONE CHARACTER 
065114 005237 064204 iNC $TKQ -:UPDATE THE POINTER 
665122 023727 064204 064207 CMP STROOUT #STKQEND- *:DID IT GO OFF OF THE END? 
065130 001003 BNE 2$ : BRANCH IF NO 
065132 012737 064206 064204 MOV #STKQSRI, $TKQOUT te § THE POINTER 
065140 2$: RT] » ;RETURN 
CF RA AAA A RARER AAAAAAREERARAAREREHEHHEHAARKREEKRRERREE TASHA ee 
tar ROUTINE WILL INPUT A STRING FROM THE TTY 
7 *CALi: 
:* RDLIN 3, INPUT A STRING FROM THE Ti¥ 
;* RETURN HERE :  EReaion OF FIRST CHARACTER WILL BE ON THE STACK 
3 TERMINATOR WILL BE A BYTE OF ALL O'S 
065142 010346 SRDLIN: MOV R3,-(SP) SAVE R3 
065144 5046 CLR -(SP) 77 CLEAR THE RUBOUT KEY 
065146 012703 065376 1$: MOV ASTTYIN,RS ;;GET ADDRESS 
065152 022703 065406 23: CMP ASTTYINeB, RS te FULL? 
065156 101456 BLOS 4$ BR IF YES 
065166 104411 RDCHR = G0 READ ONE CHARACTER FROM THE TTY 
065162 112613 MOVS (SP)+,(R3) 77GET CHARACTER 
065164 122713 000177 10$: CMPB #177, (R34) esis It RB ee 
065170 0601022 BNE S$ ;78R IF NO 
065172 005716 TST (SP) s259 iP ie THE FIRST RUBOUT? 
065174 1007 BNE é6$ 7 BR IF NO 
C65176 112737 000134 065374 MOVB #°\ ,9$ >: TYPE A BACK SLASH 
52 104401 065374 TYPE 9 
065210 012716 177777 MOV #-1, (SP) ESET THE RUBOUT KEY 
065214 005303 6$: DEC R3 ;BACKUP BY ONE 
065216 020327 065376 CMP R3 ASTTYIN 32 STACK EMPTY? 
065222 1034 BLO 4$ ;7BR IF YES 
065224 111337 065374 MOVAB (R3) 9% :# SETUP TO TYPEOUT THE DELETED SHAR, 
0652 104401 065374 TYPE ,9$ : TYPE 
065234 000746 Gh -GO READ ANOTHER CHAR. 
5236 005716 S$: TST (SP) : RUBOUT KEY SET? 
0652640 14 BEQ 7$ ;BR IF NO 
065262 112737 000134 065374 MOVB a'\ 9 +: TYPE A BACK SLASH 
065250 104401 065376 TYPE 9% 
065254 005016 CLR (SP) : CLEAR THE RUBOUT KEY 
65256 122713 000025 $ CMPB #25, (R43) si 1S CHARACTER A CTRL VU? 
065262 001003 BNE °;BR IF NO 


LE OEE 
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Fy INPUT 

06259 1904601 0656174 TYPE SCNTLU SZ TYPE A CON‘ROL ‘U"’ 
065 ? BR is 32GO START OVER 
065272 12271 00002¢ at: MPR #22,(R3) *:1S CHARACTER A ‘'*R'"? 
neg es 1011 BNE 3$ ; ;BRANCH IF NO 
965 105013 CLRB (R3) 7é CLEAR THE CHARACTER 
065302 106601 001217 TYPE ,SCRLF si TYPE A ‘‘CR'' @ ‘LF’ 
065306 104401 065376 TYPE S$TTYVIN —SETYPE THE INPUT STRING 
665312 000717 BR 2$ $360 PICKUP VANOTHER CHACTER 
065314 104401 001216 4$: TYPE SQUES s TYPE A 
065320 000712 BR 1¢ 7 CLEAR tHe BUFFER AND LOOP 
065322 111337 065374 S$: MOVR (R3),9% ZSZECHO THE CHARACTER 
065 104401 065374 TYPE 9 
065 122723 000015 CMPR #15, (R3)+ 3: CHECK FOR RETURN 
065336 001305 BNE 2$ ;;LOOP IF NOT mwETURN 
065340 105063 177777 CLR8 -1(R3) SZ CLEAR RETURN (THE 15) 
065344 104401 001220 TYPE , Sif sz TYPE A LINE FEED 
065350 005726 TST (SP)+ 7:CLEAN RUBOUT KEY FROM THE STACK 
065352 012603 MOV (SP)+,R3 sZRESTORE R3 
065354 011646 MOV (SP) ,=(SP) :;ADJUST THE STACK AND PUT ADDRESS OF THE 
065356 016666 0C0004 600002 MOV 4(SP),2(SP) es FIRST ASCII CHARACTER Of IT 
065364 012766 065376 000004 MOV MSTTVYIN,4(SP) 
065372 000002 RT] 7 RETURN 
065574 000 9$: -BYTE 0 ;; STORAGE FOR ASCII CHAR. 10 TYPE 
065375 000 BY! Q 7; TERMINATOR 
065376 STTYIN: .BLKB 3. 7 RESERVE 8 _— FOR TTY INPUT 
065406 136 103 015 $CNTiLC: .ASCIZ /*€/<15><12> 2 CONTROL 
065413 136 125 O15 $CNTLU: .ASCIZ /*U/<15><12> 32 CONTROL ay 
065420 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> ::CONTROL °*‘C’’ 
065425 015 012 125 SMSWR: .ASCIZ <15><12>/SWR = / 
0654 36 040 040 116 SMNEW: .ASCIZ / NEW = 

. EVEN 

2 

3 065450 005737 000042 SHUT: TST aF42 ;ANY MONITOR PRESENT ? 

4 065454 001002 BNE 1§$ ;BR IF YES 

5 065456 000137 005422 JMP START ;G0 TO START 

6 065462 005037 001300 1§: CiR $DEVM sFUDGE NO DRIVES IN MAP 


? 065466 900137 041432 JMP SEOP sRETURN TO $EOP 
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5. NUMBER FROM THE TT¥ 


-SBITLC READ #N OCTAL NUMBER FROM THE TTy 


bs Peer eenereeseaneanaaeeeeneeaeeeneneeeeaeaneeanaenaneeteneeaeseneeaee 


:eTHIS ROUTINE WILL es AN OCTAL (ASCII) NUMBER FROM THE TI¥ AND 
:*CHANGE IT TO BINARY 


—_——— ee we eee 


**CALL: 
3¢ RDOCT - 3 3READ AN OCTAL NUMBER 
;* RETURN ERE 3i3LOW ORDER BITS ARE ON TOP OF [HE STACK 
x9 s HIGH ORDER BITS ARE 'N $HIOCT 
0116466 SRDOCT: MOV (SP) ,=(SP) ate af SPACE FOR ‘THE 
016666 0000046 (00002 MOV 4(SP) ,2¢SP) 3, INPUT NUMBER 
010066 MOV RO,-(SP) 7ZPUSH RO ON STACK 
010146 MOV R1,-(SP) 7ZPUSH R1 ON STACK 
010246 MOV R2,-(SP) 72PUSH R2 ON STACK 
104412 1$: RDLIN ;ZREAD AN ASC!IZ LINE 
012600 MOV (SP)+,RO 3;i7GET ADDRESS OF 1ST CHARACTER 
005001 CLR R1 37 CLEAR DATA WORD 
005002 CLR R2 
112046 2$: MOVB (RO) +,=(SP) ssPICKUP THIS CHARACTER 
001412 BEQ 3$ :: IF ZERO GET OuT 
006 301 ASL R1 sae 
006102 ROL Re 
006301 ASL R1 22% 
006162 ROL R2 
006301 ASL R1 33°*8 
00610 ROL R2 
042716 177770 BIC #*C7, (SP) iz STRIP THE ASCII JUNK 
062601 ADD (SP)+,R1 tty: o IN THIS DIGIT 
000764 BR 2$ 
00572 3$: TST (SP)+ Airy TERMINATOR FROM STACK 
0101 000012 MOV R1,12¢SP) >: SAVE THE RESULT 
010237 065572 MOV R2,$HIOCT 
012662 MOV (SP)+,R2 ; «POP STACK INTO R2 
012601 MOV (SP)+,R1 zsPOP STACK INTO R1 
012600 MOV (SP) +,RO ; POP STACK INTO RO 
000002 RT] 7 RETURN 
000000 $HIOCT: .WORD 0 >;H]GH ORDER BITS GO HERE 


_ ——— ——-- 


016646 


011646 
C16666 
000002 


——— on —-  — 


000002 
000020 
065612 


000002 


065646 


000904 000002 


MACRO 
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TRAP DECODER 


st w Ve I 


s J SSAA ARARAAAEAAAAAARARAHERHAAARARAAREAREKREEHEHEKHERE HRA eeeAAenes 


:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


;*AND USE 
:*OF THE DESIRED ROUTINE. 
:*GO TO THAT ROUTINE. 


STRAP: 


1$: 


MOV 2(SP) ,=(SP) 
BIC #2), (SP) 
MOV #1$,-(SP) 
RT] 

MOV RO,-(SP) 
MOV 2(SP),RO 
TST -(RO) 

MOVB (RO) ,RO 
ASL RO 

MOV $TRPAD (RO) ,RO 
RTS RO 


THEN USING THE ADDRESS OBTAINED iT WILL 


3 ASSUME THE STATUS OF 
3 THE CALLER=-DO NOT ALLOW 


33 T-BIT TRAPS 


éeSET ys NEW STATUS 


SAVE R 
:iGET ep ADDRESS 
CKUP BY 2 


+ 4GET RIGHT BYTE OF TRAP 
>POSITION van _— 


: 7 INDEX TO T 
;;G0 TO ROUTINE 


szTRIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


;:MOVE THE PC DOWN 
;sMOVE THE PSw DOWN 
; RESTORE THE PSW 


$TRAP2: 


. SBTTL 


MOV (SP) ,=(SP) 
MOV 4(SP),2(SP) 
RT] 

TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘"TRAP*’ INSTRUCTION. 


STRPAD: 


STRAP2 
+e CALL= TYPE 


7: CALL=TYPDS 
3; CALL=TYPBN 


77 CALL=GTSWR 


37 CALL=CKSWR 
3; CALL=RDCHR 
i ort oaport 
C : CALL=RDOCT 
SSAVREG : 7 CALL=SAVREG 
SRE SREG >= CALL= =RESREG 


TRAP+1(104401) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 
TRAP+6( 104406) 


TRAP+7( 104407) 


TRAP+10(104410) 
TRAP+11(104411) 
TRAP+12(104412) 
TRAP+13(10441 3) 
TRAP +14 (104414) 
TRAP+15(104415) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

TYPE BINARY (ASCII) NUMBER 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T—SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER — TTY 
SAVE RO-R5 ROUTINE 

RESTORE RO-R5 ROUTINE 


f 
. 


Z7RMMBO RMOS/3/2 FCTNL TST 1 
*70wER DOWN AND UP ROUTINES 


066042 
000 340 


113216 
066046 
065754 


066042 
066046 
066046 
066046 
173150 


065702 
000340 


O12 


MACRO V04.00 


000026 


000024 


000024 


000024 
000026 


120 


. SBTTL 


K 4 
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POWER DOWN AND UP ROUTINES 


DE Ree eee RRR RRRRRRRRRRRARRARR RRR ERR RR ERE R ERR RRR ERE RRR Eee 


=POWER DOWN ROUTINE 
MOV 


$PWRDN: 


ASILLUP,@#PWRVEC ;;SET on FAST UP 


MOV #340, aAPURVEC*2 77PRIO: 

MOV RO,-(SP 7Z;PUSH RO ON STACK 
MOV RI aC 8P) :;PUSH R1 ON STACK 
MOV R2,-(SP) 3ZPUSH R2 ON STACK 
MOV R3,~(SP) 3ZPUSH R3 ON STACK 
MOV R4,-(SP) : PUSH R4 ON STACK 


MOV RS,-(SP) 3ZPUSH R5 ON STACK 
MOV @SwWR ,- (SP) 3 ;PUSH @SWR ON STACK 
MOV SP, SSAVR6 ; SAVE SP 
+e #EPWRUP, @APWRVEC ;;SET UP VECTOR 
BR 72 3 HANG UP 
. STARA AAA AREER ARATE EAE EAERETRAR ERE ED 
= POWER UP ROUTINE 
$PWR RUP: MOV AMSILLUP,@4PWRVEC seme! FOR FAST DOWN 
MOV SSAVR6, SP :iGET SP 
CLR $SAVRE ;;WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 :z;WAIT FOR THE INC 
BNE 1$ 3: WORD 
MOV (SP)+, aSWR :;POP STACK INTO @SWR 
MOV (SP) +,R5 73POP STACK INTO RS 
MOV (SP) +,R4 3;zPOP STACK INTO R4& 
MOV (SP)+ 3 :zPOP STACK INTO R3 
MOV (SP)+,R2 :;POP STACK INTO R2 
MOV (SP)+,R1 7zPOP STACK INTO R1 
MOV (SP)+,RO 7zPOP STACK INTO RO 
MOV #SPWRDN, @APWRVEC i3SEI UP THE POWER DOWN VECTOR 
MOV #340, @APWRVEC+2 3zPRIO:7 
TYPE ;REPORT THE POWER FAILURE 
$PWRMG: an SPOWER : : POWER FAIL MESSAGE POINTER 
$ILLUP: HALT 7; THE POWER UP SEQUENCE WAS STARTED 
BR 72 ;; BEFORE THE POWER DOWN WAS COMPLETE 
$SAVRE: 0 :zPUT THE SP HERE 
S$POWER: 


eASCIZ <15><12>’ POWER’ 
EVEN 


Pa 
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APT COMMUNICATIONS ROUTINE SEQ 0256 


~SBTTL APT COMMUNICATIONS ROUTINE 


Dee RRRRRRRRERRRRRRRRRRRRRR RR RRR RRR RE RRR SEER RRR ERE RR RRR EEE 


066060 112737 Q00001 066324 $ATY1: MOVB #1,$FFLG 3,70 REPORT FATAL ERROR 
066066 112737 000001 066322 $ATY3: MOVB 4#1,$MFLG *:T0 TYPE A MESSAGE 
066074 000403 BR SATYC 
066076 112737 000001 066324 SATYG MOVB #1.$FFLG +370 ONLY REPORT FATAL ERROR 
y . 
066104 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
066106 010146 MOV R1,-(SP) **PUSH R1 ON STACK 
066110 105737 066322 TSTB = SMFLG i: SHOULD TYPE A MESSAGE? 
066114 001450 BEQ 5$ NOT: BR 
066116 122737 000001 001242 CMPB = MAPTENV, SENV : OPERATING UNDER APT? 
066124 001031 BNE 3$ F NOT: BR 
066126 132737 000100 001243 BITB § #APTSPOOL,SENVM :¢ SHOULD SPOOL MESSAGES? 
066134 001425 BEQ 3$ :IF NOT: BR 
066136 017600 000004 MOV a4 (SP) RO GET MESSAGE ADDR. 
066142 062766 000002 000004 ADD #2,4(SP) ::;BUMP RETURN ADDR. 
066150 005737 001222 1$: TST $MSGTYPE i sSEE IF DONE W/ LAST XMISSION? 
666154 001375 BNE 1$ NOT: WAIT 
066156 010037 001236 MOV RO, SMSGAD +s PUT ADDR IN MAILBOX 
066162 105720 2$: TSTB (RO) + ::FIND END OF MESSAGE 
066164 001376 BNE 2$ 
066166 163700 001236 SUB $MSGAD ,RO ::SUB START OF MESSAGE 
066172 006200 ASR RO -:GET MESSAGE LNGTH IN WORDS 
066174 010037 001240 MOV RO, $MSGLGT -:PUT LENGTH IN MAILBOX 
066200 612737 000004 001222 MOV #4, S$MSGTYPE *:TELL APT TO TAKE MSG. 
066206 000413 BR 5$ 
066210 017637 000004 066234 3%: MOV a4 (SP) .4$ ;:PUT MSG ADDR IN JSR LINKAGE 
066216 062766 000002 000004 ADD #2,4(SP) -BUMP RETURN ADDRESS 
066224 013746 177776 MOV 177776, ~(SP) ; ;PUSH 179776 ON STACK 
066230 004737 061314 JSR PC $TYPE *CALL TYPE MACRO 
066234 000000 4$ .WORD 0 
066236 S$: 
066236 105737 066324 10$: TSTB —ss SFFLG ::SHOULD REPORT FATAL ERROR? 
066242 001416 BEQ 12$ -:IF NOT: BR 
066244 005737 001242 TST $SENV ; RUNNING UNDER APT? 
066259 001413 BEQ 12$ ‘::1F NOT: BR 
066252 005737 001222 118: TST $MSGT YPE FINISHED LAST MESSAGE? 
066256 001375 BNE 11$ :IF NOT: WAIT 
066260 017637 000004 001224 MOV Q4(SP).$FATAL ::GET ERROR 7 
066266 062766 000002 000004 ADD #2,4(SP) -BUMP RETURN ADDR. 
066274 005237 001222 INC $MSGT YPE ri TELL APT TO TAKE ERROR 
066300 105037 066324 12$: CLRB =: $SFFLG *:CLEAR FATAL FLAG 
066304 105037 066323 CLRB = $LFLG >: CLEAR LOG FLAG 
066310 105037 066322 CLRB $MFLG =: CLEAR MESSAGE FLAG 
066314 012601 MOV (SP)+,R1 -:POP STACK INTO R1 
066316 012600 MOV (SP)+_RO : : POP STACK INTO RO 
066320 000207 RTS PC TURN 
066322 000 SMFLG: BYTE ; sMESSG. FLAG 
066323 000 $LFLG: .BYTE O “LOG FLAG 
066324 000 SFFLG: -BYTE 0 = :FATAL FLAG 
VEN 

000200 APTSIZE = 200 

000001 APTENV = 001 

000100 APTSPOOL= 100 

000040 APTCSUP = 040 


$F EL TC IE i ES RE et et ee ee 
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ONSOLE MESSAGES 


.SBTTL CONSOLE MESSAGES 


2 

2 066326 075 000 EQUALS: .ASCIZ a=a 

4 066330 101 114 114 ALL: eASCIZ @ALL@<CRLF> 

5 066335 0 077 040 QUES: ASCIZ €87?29 

6 066341 054 040 000 COMMA: .ASCIZ @. a 

? 066344 200 124 131 MSHELP: .ASCIZ <CRLF>@TYPE HELP TEXT (L) N? 2a 

8 066375 200 122 115 CNSLO1: .ASCIZ <CRLF>@RMCS1=a 

9 066405 040 114 111 CNSLO2: .ASCIZ @ LIMITS - LO= 160000, HI]= 17xXxXxXKXa@<CRiF > 
10 066447 122 115 126 CNSLO3: .ASCIZ @RMVEC=a 

11 06645 040 114 177 CNSLOG4: .ASCIZ @ LIMITS =- LO= 0, HI= 1000@<CRLF><LF> 
12 06651 200 124 131 CNSLO7: .ASCII <CRLFO>@TYPE ‘‘A*’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a 
13 06657 200 101 116 -ASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.G 
14 066654 200 CNSLOB: .ASCII <CRLF> 

15 066655 04G 077 111 CNSLO9: .ASCIZ @ ?ILLEGAL INPUT@<CRLF> 

16 066676 200 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): / 

17 066712 104 122 111 MSGORV: .ASCIZ /DRIVE/ 

18 066720 125 116 SYSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 

19 0667 122 115 060 S$RMO2: . IZ /RMO2/ 
20 066743 122 115 060 $RMO3: .ASCIZ /RMOS/ 
21 066750 122 115 060 $RMOS: .ASCIZ /RMOS/ 
22 066755 040 116 117 NOTRM: .ASCIZ @ NOT AN RMO5S/3/2a 
23 066776 040 114 . +117 \LODEV: .ASCIZ / LOAD DEVICE/ 
24 067013 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
25 067030 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 
26 067047 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
27 7060 117 116 UNTON: .ASCIZ / ONLINE/ 
28 067070 200 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 

067117 116 117 116 NONE -ASCIZ /NONE/ 
30 067124 116 000 N: eASCIZ /N/ 
31 067126 131 000 . eASCIZ /Y/ 
32 067130 040 BLNKS4: .ASCII / / 
33 067131 040 BLNKS3: .ASCII / / 
067132 040 BLNKS2: .ASCII / / 
35 067133 040 000 BLNKS1: .ASCIZ / / 


- -- —- A RT — — 2 
ee - — _— 
- “ — oe 
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17 


“ 067136 
Ta | 
57 067136 020000 


ee ee 
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N 4&4 
MACRO V04.00 4-APR=-81 11:43:28 PAGE 48 


.SBTTL FUNCTION CODE TABLE 


:THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
:EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA ~- BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE, 
:BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
:NOTE THAT ATA MAY BE =" WHEN A COMMAND IS EXECUTED EVEN THOUGH 
;1T IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
:THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE’’, "WCF'', ‘DPE’, ‘UPE’’. 


IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


; AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE SOL. OF THE 
COMMAND. THE ERRORS — BY THIS BIT ARE ‘‘TRE’’, *DLT’’, ‘NEM’, 
MKF “LBT'', AND ‘‘AOE"’ 

; BiT 08 IS NOT USED. 

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 


VIF HEADER ERRORS ARE ENABLED DURING hs EXECUTION OF THAT COMMAND. 
: HEADER ERRORS INCLUDE "‘HCRC*’, ‘HCE’*, “'FER'’ ANw ‘BSE’” 


ECH ~- BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT 
:COMMAND. THESE ERRORS INCLUDE 'MDPE'', ‘DCK'', AND ‘CH’ 


; BIT 05 IS NOT USED. 
4% BIT 04 IS NOT USED. 
; BIT 05 IS NOT USED. 


BIT O02 IS NOT USED. 
BIT O1 IS NOF USED. 


: ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDIB: sFUNCTION CODE TABLE 


-WORD OP] , ; NOP 


EG 


ZRMMBO RMOS/3/2 FCTINL TST 7 
UNCTION CODE TABLE 


58 067140 etd 
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OPI!ATA!ILF! IVC 
ATA: OPI! IVC! I1AE 
ATA!OPI! IVC 

OP | 


OPI! ive 

OPI !ATA! IVC 
OPI! ATA! IVC 
OP] 


OP] 

OPI!ATA! IL? ! IVC 

OPI !ATA!ILF! IVC 
ATA!OPI! IVC! IAE 

OPI !ATALILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

OPI !ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATALILF! IVC 

WCE !OPI! IVC! IAE!AOE ! HCE! ECH 
WCE !OPI! IVC! IAE!AOE!HCE!ECH 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

OPI! IVC! WLE! JAE! AOE !HCE 
OPI: IVC! WLE ! JAE ! AOE 

OPI !ATA!LILF! IVC 
OPI!ATA!ILF! IVC 

OPI! IVC! JAE! AOE! HCE! ECH 
OPI! IVC! TAE! AOE! HCE 'ECH 
OPI!ATA!ILF i IVC 
OPT!ATALILF! IVC 


ii FUNCTION (2) 
;RECAL IBRATE 


RETURN * CENTERL INE 
PRESET 


READ IN 

7 PACK err ay? 
sILLEGAL FUNCTION (24) 
sILLEGAL FUNCTION (26) 


; SEARCH 

ILLEGAL FUNCTION (32) 
s ILLEGAL FUNCTION (34) 
; ILLEGAL FUNCTION (36) 
: ILLEGAL FUNCTION (40) 


Z ILLEGAL FUNCTION (42) 

7 ILLEGAL Ayo Lo (44) 

A LEGAL FUNCTION (46) 

WRITE CHECK DATA 

“WRITE CHECK HEADER AND DATA 
ILLEGAL FUNCTION (54) 

: ILLEGAL FUNCTION (56) 
sWRITE DATA 

;WRITE HEADER AND DATA 

7 ILLEGAL FUNCTION (64) 

; ILLEGAL FUNCTION (66) 

;READ DATA 
ZREAD HEADER AND DATA 
; ILLEGAL FUNCTION (74) 
ILLEGAL FUNCTION (76) 


c 3 
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TENTION (ATA) T 

’ .SBITL ATTENTION (ATA) TABLE 
: 067236 001 ATNTBL: BYTE a 

4 067237 002 BYTE 2. 

5 967 os BYTE 4. 

6 067261 10 BYTE 8. 

7 a Log BYTE 16. 

@ pores 040 BYTE 32. 

9 0672646 100 BYTE 64. 

°C 067265 JAVTE 128. 


A 
iz 
. = ae Sie itnesestsssetssepsiseiensattatstiestenteeneseeeennes-eres a — = 





JME 


bmw ob Me 


NOS WR-OVWNA UL wWr.. 


RO S/3/2 FCTNL TS 


AGE TABLE 


067246 
2 


070154 


076511 


D 5 
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077015 
076230 


076255 


A a 


EMT67: 


ERROR MESSAGE TABLE 


-WORD EMS1,0 
-WORD EMS2,EMS3,0 
.WORD  E£MS2,EMS4_0 


“WORD EMS5.EMS10,0 . 
"WORD £&MS167,EMS64.0 
WORD EMS110, °—MS170,0 


. WORD 57,0 

WORD 10,0 

“WORD £&MS11.EMS1 

“WORD £€MS13.EMS14.£MS15,EMS16,0 
“WORD £MS17.EMS64. 

“WORD £MS11.EMS21. 

.WORD &MS11,EMS22,EMS27,0 
“WORD &MS11,—MS23,EMS 30,0 
.WORD €MS11,EMS24,EMS30,0 
WORD £&MS11,EMS25,EMS27,0 
.WORD EMS11,—MS26,EMS27,0 
.WORD £EMS11,€MS31,EMS30.0 
.WORD £&MS11,EMS32,EMS30,0 
.WORD £&MS11,EMS33,EMS30.0 
.WORD £&MS11,EMS34,EMS30,0 
.WORD £&MS11,EMS35,EMS3C,0 
.WORD £&MS11,£MS36,EMS30.0 
.WORD £&MS11,EMS37,EMS30.0 
.WORD €&MS11,EMS40,EMS30,0 
.WORD €&MS11,EMS41,EMS30,0 
“WORD £&MS11.EMS42.EMS30.0 
-WORD £MS11.EMS43.EMS30.0 
“WORD £&MS11,EMS44.EMS30.0 
“WORD £MS11,EMS45.EMS30.0 
-WORD &MS66.EMS20, O 

-WORD EMS75.EMS141.EMS76,0 
WORD £MS144,E msi45- EMS?3- EMS76.0 
WORD Emsc? ERS 3,EMS76,0 


EMS 
“WORD EMS101 -EMS53.EMS76.0 

.WORD &MS65,EMS64,0 

“WORD £&MS13,—EMS15.EMS63,0 

EMS11,EMS46,EMS30,EMS67,0 

“WORD £&MS47.EMS53.EMS67. Emi §- EMS140,EMS141,0 

“WORD EMS47. EMS53, EMS6/. EMS115. EMS141. em l64. 0 

-WORD £&MS50.EMS53.E 

WORD EMS 142 EMSIe 3. easSt En 7.0 

“WORD €MS51 EMS EMS67 emeT TS. EMS5O.EMS70,0 

“WORD PMe16o° EMS73,EMS67,0 

“WORD £MS56,EMS67,EMS115.EMS150,EMS152,EMS70,0 

“WORD EMS71.EMS56.EMS67,EMS115,EMS150,EMS152.EMS72,0 
“WORD me 40. meee EMS115,EMS47,EMS70.0 


-WORD EMS150,EMS152,EMS70,EMS115,EMS56,EMS73,EMS67,.0_ 
“WORD EMS52,EMS205 EMSe 14. EMS206.EMS115.EMS51.EMS72, 0 
"WORD £&MS165.EMS103,EMS72.EMS124 .0 
“WORD £MS165.£MS103,EMS72.EMS171.0 


——— eee — somes eee 6 eek. ——- — « — ee eee 


SEQ 026° 


tite i —_ a 


—E § 
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ERROR MESSAGE TABLE SEG 


58 070166 075410 074440 100463 EMT70: .WORD £&MS46,EMS20 EMS 163 0 

59 070176 076242 (676436 100463 EMT71: .WORD &MS71.EMS101.EMS163.0 

60 070206 075437 076255 100463 EMT72: .WORD &MS47.EMS72, esi 6 3, EMS115,EMS140,€MS141.0 
61 070224 075437 076255 100463 EMT73: .WORD £&MS47.EMS72.EMS163.EMS115.—MS141_EMS72,0 

62 070262 075636 075553 100463 EMT74: .WORD EMSS6.EMS53.£5163,0 

63 070252 076242 075636 100463 EMT75: .WORD &MS71.EMS56.EMS163.EMS115,EMS150,EMS152,£MS72,0 
64 070272 075466 075553 100463 EMT76: .WORD &MSS5SO.EMSS3.EMS163,0 

65 070302 100060 100075 075553 EMT77: .WORD £&MS142,€MS143,EMS53.EM 

66 070314 076321 100032 100463 EMT100: .WwORD &MS75,EMS141,EMS163, EMS 
67 070332 076321 100216 100463 EMT101: .WwORD £&MS575.EMS150.EMS163_EMS 
68 070350 100631 076265 100463 EMT102: .WwORD £&MS167,EMS73.EMS163, 

o9 070360 100201 100235 076302 EMT103: .WORD EMee?. EMS151,EMS74.EM 
70 070372 075515 076302 100463 EMT104: .WORD &MS51.EMS74,EMS163.EMS1 
71 070410 160570 076406 100463 EMT105: .wWORD &MS165.EMS1 EMS 165, 0 
?2 070420 100570 076360 100663 EMT106: .WORD &MS165.EMS77.EMS163.0 
?§ 070430 100123 100133 075553 EMT107: .WwORD E&MS144. EMS 166~ EMS53,EMS163,EMS115,EMS143,EMS70,0 
74 070650 076615 076655 077020 EMT110: .WORD &MS110.EMS112.EMS116,—MS111,0 


0 

1§ EMS47,EMS70.0 
115,EMS56,EMS73,0 

$163,0 
15,EMS50,EMS70,0 


63, 
ae 


75 070462 076741 075763 EMT111: .WORD oetie* EMS4 ,0 
76 070470 076741 073720 000000 EMT112: .WORD &MS113,EMS3,0 
77 C70476 076615 077015 077020 EMT113: .WORD &MS110,EMS115,EMS116,EMS117,EMS114,0 
070512 076741 077072 EMT114: .WORD 113,EMS120,0 
070520 0771135 077553 077577 EMT115: .WORD 121,EMS132,EMS133,0 
070530 077156 077553 077577 EMT116: .WwORD &MS122,EMS132,EMS133,0 
070540 077213 077553 Q77577 EMT117: .WORD EMS1235,EMS132,EMS133,0 
070550 077256 077553 077577 T120: .WORD €&MS124,EMS132,EMS133,0 
070560 077310 077553 077577 EMT121: .WORD &MS125,EMS132,EMS133,0 
077355 077553 O77577 EMT122: .WORD &MS126,EMS132,EMS133,0 
7 077754 077553 077577 EMT123: .WORD &MS137,EMS132,EMS133,0 
070610 077455 077553 077577 EMT124: .WORD ENS 131 MS] 32-ENS133-0 


070750 077513 077553 077622 EMT136: EMS131,EMS132,EMS134,EMS1 
070762 077113 077553 664 £MT137: .WORD &MS121.EMS132.EMS135. 
070772 077213 077553 664 EMT140: .WORD &MS123.EMS132.EMS135.0 
071002 077113 077553 077727 EMT141: .WORD £&MS121.EMS132.EMS1 36.0 
100 071012 077754 077553 077727 EMT142: .WORD &MS137.EMS132.EMS1 36.0 
101 071022 077256 077553 077727 EMT143: .WORD &MS124.—MS132.EMS136.0 
102 071032 077310 077553 077727 EMT144: .WORD &MS125.EMS132_EMS136.0 
103 071042 077353 077553 077727 EMT145: .wORD &MS126.EMS132.EMS1 36.0 
04 071052 077513 077553 077727 EMT146: .WORD &MS131_EMS132.EMS136.0 
5 071062 100705 077553 077727 EMT147: .WORD &MS171_.EMS132.EMS136.0 
106 071072 077455 077553 077727 EMT150: .WORD &MS130.EMS132.EMS136.0 
107 071102 100011 077015 100032 £&MT151: .WORD £&MS140.EMS115.EMS141.EMS70.0 
108 071114 1 077015 100075 EMT152: .WORD &MS142.EMS115.EMS143,EMS72.0 
109 071126 100123 100133 100162 €&MT153: .WwORD £&MS144.EMS145,EMS146.EMS115,EMS143,EMS72,0 
110 071144 100123 100133 074440 EMT154: .WORD £&MS144.EMS145.EMS20,EMS115,EMS143,—MS70,0 
111 671162 100216 100261 100327 EMT155: .wORD &MS150. EMS 132, EMS154,EMS153,0 
112 071174 100201 1002 EMT156: .WORD £&MS147,EMS151,EMS154,EMS155.0 
113071206 100201 100235 100363 EMT157: .wORD &MS147.EMS151.EMS156.EMS157.0 
114 071220 100633 100363 100416 EMT160: .WORD &MS161_EMS156.FMS160, 


Pp. 3 
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ERROR MESSAGE TABLE 


115 071230 074577 074635 
'16 071242 074614 C€74635 


EMT161: .WORD E—MS25,EMS27,EMS156,EMS 
112 Q7tg54 075437 190465 1 


3 16 
ods E EMT162: .WwORD EMS26,EMS27,EMS156,EMS16 


0,0 
0,0 
EMT163: .WORD £&MS47.EMS163.EMS140.0 


000000 
000000 be. ,EMS20,0 
2.071314 101215 100032 074646 EMT170: .WwORD &MS203,EMS141,EMS30,EMS202,0 
3 006 100401 E—MT171: .WORD &MS167.EMS154.EMs:57,0 
24 071336 100631 100327 1003463 EMT172: .WORD &MS167.EMS154.EMS155.0 
25 071346 100705 077553 077577 EMT173: .WORD £&MS171.EMS132.—MS133.0 
26 071356 100705 077553 077622 EMT174: .WORD  &MS171 EMS132, EMS134,£MS123,0 
2? 071370 076741 101060 000000 €—MT175: .WwORD £&MS113,EMS177.0 
28 071376 101102 101117 000000 EMT176: .wORD €&MS200, e201 0 


075515 074646 EMT200: .wORD &MS203,€MS51,EMS30,EMS202,0 
101230 074646 EMT201: .WORD £&MS203.EMS204,EMS30,EMS202,0 


071474 075466 076511 076255 EMT205: .WORD &MS50,EMS103.EMS72,0 


, MS202,0 
37 071514 076321 100032 077015 EMT207: .WwORD &MS75,EMS141.EMS115.EMS140.0 
188 071526 076321 100216 000000 EMT210: .WwORD &MS75.EMS150.0 

139 071534 075515 076255 077015 EMT211: .WORD &MS51.EMS72.EMS115.EMS50,EMS70,0 

140 071550 100060 075553 077015 EMT212: .wORD &MS142.EMS53, EMS115 , EMS143,EMS72,0 

141 071564 075466 076511 075553 EMT213: .WORD &MS5O,EMS103.EMS53,0 

142 071574 075543 101256 100604 EMT214: .WwORD &MS52.EMS205. Em 166., EMS206,EMS115,EMS51.EMS72,0 
143 071614 075543 077050 075636 §EMT215: .WORD E&MS52.EMS117.EMS56.EMS163,0 

144 071626 075636 074646 076047 EMT216: .WORD §&MS56.EMS30,EMS6<.0 

1465 071636 075410 076646 076047 EMT217: .WORD £&MS46.EMS30.EMS64.0 

1466 071646 074656 074646 0760467 EMT220: .WORD &MS31.EMS30.EMS64.0 

147 071656 075437 074646 076047 EMT221: .WORD &MS47.EMS30.EMS64_0 

148 071666 075543 077050 076360 EMT222: .WORD &MS5S2.EMS117,EMS77.0 

149 071676 075543 077050 076021 EMT223: .WwORD &MS52.—MS117.EMS63.0 


150 071706 000000 EMT224: .WORD 
151 071710 000000 EMT225: .WORD 
1$2 071712 000000 EMT226: WORD 
153 071714 000000 EMT227: WORD 
154 071716 000000 EMT230: .WORD 
155 071720 000000 EMT231: .WORD 
156 071722 000000 EMT232: .WORD 
187 071724 000000 EMT233: .WORD 
158 071726 000000 EMT234: .WORD 
159 071730 000000 EMT235: .WORD 
160 071732 000000 EMT236: .wORD 
167 071734 000000 EMT237: .WORD 
162 071736 000000 EMT240: .WORD 
163 071740 000000 EMT241: WORD 
164 071742 000000 EMT242: WORD 
is 071744 000000 EMT243: WORD 
71746 (000000 EMT244: WORD 
167 071750 000000 EMT245: .WORD 
168 071752 100631 077553 101315 EMT266: .WORD E&MS167,EMS132,EMS207,0 
169 071762 100631 077553 101342 EMT247: .WORD E&MS167,EMS132,EMS210,EMS125,0 
170 071774 100631 101353 101342 EMT250: .WwORD €&MS167,EMS211,EMS210,EMS207,EMS206,( 
171 072010 107371 1017614 O00000 EMT251: .wORD €&MS212,EMS213,0 


> ee oe ere Er Se ewe eee . 
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5B | 


‘72 072016 
072042 


ce ee ee ee ee weed eed «ed 


AMOS / 5, ; 
PRROR MESSAGE TABLE 


FCTNL TST 


075607 
075543 


074762 
077050 
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000000 
075636 


EM1252: . 


EMT342: | 


0 
EMS156,£MS210, EMS26,EMS27 0 
MS167.EMS 30.0 
EMS203.EMS100.EMS30_0 
EMS11,EMS46,EMS30,EMS102.0 


wwnwn 
— 
ou 
—~— N\) 


EMS52.EMS117,EMS56,EMS102,0 
EMS52,EMS205.EMS220,EMS206,EMS115,EMS51,EMS72,.0 
EMS104,EMS73.EMS202.0 

EMS50,£MS53,EMS102,0 
EMS56.EMS53.EMS102.EMS115,£MS150,EMS152.EMS70.0 
EMS71 .EMS56.EMS102.EMS115.EMS150.EMS152.EMS72_0 
EMS142,EMS143,EMS5 $,EMS102,0 
EMS50,£MS146,EMS115,EMS52,—£MS117,EMS46,0 
EMS47.EMS53,—MS102,£MS115.EMS140.0 
EMS47,EMS53,EMS102.EMS115.EMS141.EMS72,0 
EMS75,€MS141,EMS102,£MS115,EMS47,EMS73,0 
EMS51,EMS74,EMS102,—MS115,EMS50,EMS70, 
EMS63.EMS53,EMS57,EMS115.EMS41,EMS146_0 
EMS116,£MS53,EMS41,EMS57,0 
EMS47,—MS53,EMS57,EMS115.EMS140,0 
EMS47.EMS53,EMS57.EMS115.EMS141.EMS72,0 
EMS56.EMS53,EMS57.EMS115 .EMS150.EMS152.EMS70.0 
EMS71 .EMS56.EMS53.EMS57,EMS115,—MS150,EMS152.EMS72.0 
EMS165,€MS100,EMS103,EMS57,0 

EMS165-EMS101 .EMS103,EMS57,0 


EMS165,EMS77,EMS103,EMS57, 
EMS46,—MS30,EMS64,—MS57,0 
EMS5SO.EMS53.EMS57.0 
EMS50,EMS146,EMS115,EMS52,EMS117.EMS46,EMS57.0 
EMS142,E€MS145,EMS53.EMS57,0 | 
EMS104,EMS103,EMS53,EMS57,0 
EMS105,EMS103,EMS53,EMS57,0 
EMS144,€MS145.EMS103,EMS57,EMS115.EMS143,EMS70,0 
EMS42,EMS103,EMS53,EMS57,0 
EMS31,EMS103,EMS53,EMS57,0 
EMS71.EMS31.EMS103.EMS57.0 

—MS43.EMS103,EMS57.0 

EMS45 .EMS103.EMS57.0 

EMS44 .EMS103,EMS57.0 

EMS106,EMS20,0 ” 
EMS36.—€MS103.EMS57,0 

EMS 173, EMS 36,EMS103,EMS57,0 
EMS172,EMS.36,EMS103,—MS57, 0 
EMS13,€MS174,EMS15,EMS35,—MS53,EMS175,0 
EMS147,EMS151,EMS74,EMS175,0 

EMS66,—MS53,EMS175,0 

EMS33.€MS103,EMS53.£MS175,0 
EMS4O,EMS103,EMS53,EMS57,0 
EMSS1.EMS74,EMS57,EMS115.EMS5O,EMS70,0 
EMS75.—MS141,EMS57.EMS115,EMS47. EMS 73,0 

EMS75 .EMS150.EMS152,EMS57.EMS115,EMS56,—MS73,9 
EMS60.EMS61,EMS62,0 

EMS116,£MS117,EMS 34,0 

EMS 34.€MS53,2MS54,€MS111,0 

EMS55 EMS 34,0 

EMSS2.—MS117,EMS56,EMS57, 0 


== I ee est stestestesetiestethenssssu-steestineeenmseee -—_—-< - _~ 
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29 07 7554 77050 075345 §&MT343: .wORD &MS52,—MS117.EMS45,EMS57.0 
230 Oashe Oreee’ faa’: 075272 §EMTS44: WORD EMS5¢ .EMS117.EMS44 EMSS7,0 
°31 073226 075563 677050 107601 EMT345: .wORD &MS52.EMS117 EMS22 ,0 
232 735% 076576 0744460 077015 §&MT346: WORD EMS106,£MS20. EMS115 -EMS223,EMS72, 0 
523 073250 075543 101256 101651 §—MT347: .WORD &MSS -EMS205 »EMS222,EMS206,0 
234 076321 100216 076462 EMT350: .wORD &MS75.EMS150.EMS102. pare EMS56,€MS73,0 
235 07 100631 076265 076462 EMT351: .wORD §&MS167,EMS73.EMS102.0 
2% 073310 101455 EMT352: .WORD €&MS215, 
28? OP8816 101526 107215 1014676 EMT353: .WwORD &MS217.EMS203,EMS216,0 
9&& 073824 107601 0744460 O00000 EMTS54: .WwORD £€M5221.EMS20,0 


CRM RMOS/ S/ 0 FOTN 


(RAR MESSAGE 


‘ 
7) 0734146 


1 
15 073652 


— eee sae Oe OO owe 


TABLE 


102031 
102627 


192050 
102057 


190128 
199183 
SSH 
100695 
102561 


° ‘ 
Ss’ 


102627 
192706 


MA°RO yO4.00 
102704 ERT): WORD 
1903031 FHT2: . WORD 
FHT170: . WORD 
FHT111: WORD 
EHT114: WORD 
102706 EHT223: .WORD 
102704 EFHT256: .WORD 
102704 £HT336: .WORD 
102704 EHT337: .WORD 
109704 FHT346: “WORD 
—EHT353: WORD 


ee 
4-4PR-8! 11:43:28 PAGE $1 


EH1,STSH1,STSH2,STSHS,0 
STSH1,S1SH2.STSH4,0 


£H110,0 
FH111.0 


£H114,0 
EH223, STSH1, STSH2, STSHS 
EH256,S1TSH1,S7TSH2,STSH4 


0 
H4,0 
EH336,STSH1,STSH2,S1SH4,0 
EH357,STSH1,STSH2,STSH4,0 
EH344,STSH1,STSH2,STSH4,0 


EH353,0 


A> 
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C 
PRROR MESSAGE ‘ABLE 


1 073456 103070 Ht 4 103202 EDT1: .WORD €ED1,STSD1,STSD2,STSD4 

4 07 103164 103202 1032354 EDT2: .WORD STSD1,STSD2,STSD4 

4 073474 103076 EDT110: .WORD £D110 

; 973476 103102 EDT111: .WORD €D111 

7 073500 103110 EDT114: .WORD €&D114 

: 073502 103120 103164 103202 EDT223: .WwORD £D223,STSD1,STSD2,STSD4 
10 073512 103130 103164 103202 EDT336: .WORD £€D336,STSD1,STSD2,STSD4_ 
11 073522 103742 103164 103202 £ED1T337: .WORD ED337,STSD1,STSD2,STSD4 
1% 973532 103142 103164 103202 EDT344: .wWORD €£D337,STSD1,S™SD2,STSD4,0 
14 073544 104154 EDT353: .wORD €&D353 


pot te 


K 5 
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“7RMMBO RMOS/5/2 FC 

ERROR MESSAGE TABLE 
1 073546 103247 103265 1O3502 EFT1: WORD €F111,STSF,STSF,STSF 
2 0735556 103265 103265 103265 EFT2:  .WORD STSF,STSF,STSF 
4 073564 103246 EFT110: .WORD €F110 
? 073566 103247 EFT117: .WORD €F111 
? 073570 103251 EFT114: .WORD €F114 3 
073572 103251 103265 103265 EFT225: .WORD EF114,STSF,STSF,STSF 
10 073602 103254 103265 103265 EFT336: .WORD EF336,STSF,STSF,STSF 
11 073612 103254 103265 103265 EFT337: .WwORD EF 336,STSF,STSF,STSF 
12 073622 103254 103265 103265 EFT344: .WORD EF336,STSF,STSF,STSF 
14 0735632 103251 EFT353: .wORD EF114 
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; ~SBTTL ERROR MESSAGE STRINGS 
= 073634 127 122 117 EMS1: .ASCIZ @WRONG UNIT SELECTED (RMCS2, BITS 0-2) @ 
4 073703 104 105 126 EMS2: .ASCIZ @DEVICE WENT @ 
5 073720 125 116 101 EMS$:  .ASCIZ @UNAVAILABLE ‘DVA"’ (RMCS1, BIT 11) a 
6 073763 116 117 116 ~EMS4: -ASCIZ @NONEXISTENT “NED'’ (RMCS2, BIT 12) @ 
7 074026 103 117 115 EMSS: -ASC1Z @COMMAND NOT COMPLETED, @ 
8 074056 103 117 116 EMS6: .ASCIZ a@CONTROLLER NOT READY (RMCS1, BIT 7) @ 
9 074125 104 122 Mi EMS7:  .ASCIZ @DRIVE NOT READY ‘DRY‘’ (RMDS, BIT 7) @ 
10 074170 107 117 0240 EMS10: .ASCIZ @GO NOT RESET ‘'GO’' (RMCS1, BIT 0) a 
11 074232 111 116 126 EMS11: .ASCIZ @INVALID a 
12 074243 106 125 116 EMS12: .ASCIZ @FUNCTION CODE (RMCS1, BITS 1-5) @ 
13 074 115 101 123 EMS13: .ASCIZ @MASSBUS a 
14 074315 103 117 116 EMS14: .ASCIZ a@CONTROL @ 
15 074326 102 125 123 EMS15: .ASCIZ @BUS PARITY ERROR @ 
16 074350 042 115 103 EMS16: .ASCIZ @'MCPE** (RMCS1, BIT 13) a 
17 074400 124 122 101 —MS17: .ASCIZ @TRANSFER ERROR (RMCSI, BIT 14) a 
18 074440 123 110 117 EMS20: .ASCIZ @SHOULD NOT BE SET a 
19 074465 127 117 122 EMS21: .ASCIZ @WORD COUNT (RMWC) a 
20 074506 102 125 125 EMS22: .ASCIZ @BUS (RMBA) a 
21 074522 042 114 102 EMS25: .ASCIZ @' BT’ (RMDS, BIT 10) a 
22 074550 042 101 117 EMS24: .ASCIZ @' ‘AOE’ (RMER1, BIT 09) a 
23 074577 104 177 125 EMS25: .ASCIZ @DISK (RMDA) a 
24 074614 103 131 114 EMS26: .ASCIZ @CYLINDER (RMDC) a 
25 074635 101 104 104 FMS27: .ASCIZ @ADDRESS a 
26 074646 123 124 101 EMS30: .ASCIZ @STATUS a 
27 074656 042 127 114 EMS31: .ASCIZ @' WLE’’ (RMER1, BIT 11) 
28 074705 042 125 120 EMS32: .ASCIZ @'UPE’’ (RMCS2, BIT 13) a 
29 074734 042 127 103 EMS33: .ASCJZ a@' WCF’ (RMER1, BIT 5) a 
074762 127 122 111 EMS34: .ASCIZ @WRITE CHECK ERROR-’ we” (RMCS2, BIT 14) @ 
31 075033 042 115 104 EMS35: .ASCIZ a’ MDPE"’ Lah a BIT &) a 
32 9075062 042 104 103 EMS36: .ASCIZ a’ DCK’" ( . BIT 15) a 
33 075111 042 105 105 EMS37: .ASCIZ a@'ECH' + CRMERT” BIT 6) a 
075137 042 104 114 EMS40: .ASCIZ a’ DLT’ (RMCS2, BJi 15) a 
35 075166 042 115 130 EMS41: .ASCIZ a@'MXF’’ (RMCS2, BiT 9) a 
075214 042 104 124 EMS42: .ASCIZ a’ DTE*’ (RMERI, 3IT 12) a 
37 075243 042 110 103 EMS43: .ASCIZ @ HCRC'’ (RMER1T. BIT 8) a 
38 075272 110 105 101 EMS44: .ASCIZ @HEADER COMPAR ERROR ‘'HCE’’ (RMER1, BIT 7) @ 
39 075345 106 117 122 EMS45: .ASCIZ @FORMAT ERROR ' “ER (RMER’, BIT 4) a 
40 075410 042 1117 101 EMS46: .ASCIZ @'‘IAE*’ (RMER1, Bit 1C° ow 
41 075437 042 117 120 EMS47: .ASCIZ @°OPI'' (RMERI, BIT 13) a 
42 075466 042 123 173 EMS5O: .ASCIZ a’'SKI'' (RMER2, BIT 14) ; 
435 075515 2 120 111 EMS51: .ASCIZ a’ PIP’* (RMDS, BIT 13) a 
44 075543 124 110 105 EMS52: .ASCIZ @THE RM a 
45 075553 104 105 124 EMS53: .ASCIZ @DETECTED @ 
46 075565 101 124 040 EMS54: .ASCIZ @AT AN UNEXPECTED a 
47 075607 1717 116 103 EMS55: .ASCIZ @INCORRECT DATA DURING @ 
48 0756 1117 116 126 EMS56: .ASCIZ @INVALID COMMAND ERROR ‘'IVC'’ (RMER2, BIT 12) @ 
49 075713 104 125 122 EMS57: .ASCIZ @DURING DATA TRANSFER a 
50 075741 104 101 124 EMS60: .ASCIZ @DATA READ a 
51 075754 104 117 105 EMS61: .ASCIZ @DOES NOT COMPARE WITH a 
52 076003 104 101 124 EMS62: .ASCIZ @DATA WRITTEN a 
53 076021 042 120 101 EMS63: .ASCIZ @’PAR*’ (RMER1, BIT 3) a 
54 076047 177 123 040 EMS64: .ASCIZ @IS INCORRECT @ 
55 076065 103 117 115 EMS65: .ASCIZ @COMPOSITE ERROR ‘ERR’ (RMDS, BIT 14) @ - 
56 076133 104 101 124 EMS66: .ASCIZ @DATA PARITY ERROR ‘DPE"’ (RMER2 , BIT 3) a 
57 076203 104 125 122 EMS67: .ASCIZ @DURING SEEK COMMAND a 
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58 076230 = 111 123 060 EMS70: .ASCIZ aS RESET a 

59 076262 «= s‘105 122 122 :«EMS71: ASCIZ @ERRONEOUS a 

60 076255 = -111 123 060 EMS72: <ASCIZ alS SET @ 

61 076065 89 106s 11 104 £MS73: .ASCIZ @DID NOT SET a 

62076302 8910611 104 £MS74: .ASCIZ @DID NOT RESET @ 

63 076321 114 117 123 EMS75: .ASCIZ @LOST a 

64076327 «1062S s«125.—~Ss«dees«EMS76: .ASCIZ @DURING PACK ACK COMMAND @ 

65 076360 0462 102 115 EMS77: .ASCIZ @'RMR'' (RMER*, BIT 2) @ 

66 676406 111 114 €MS100: .ASCIZ a’'ILR'' (RMER1, BIT 1) a 

67 076634 042 111 114 EMS101: .ASCIZ @’'iLF'* (RMER1, BIT 0) @ 

68 076462 125 122 «EMS102: .ASCIZ @DURING SEARCH COMMAND a 

69 076511 105 122 122 EMS103: .ASCIZ @ERROR @ 

70 076520 = 04 1146 102 «~EMS104: .ASCIZ @'LBC’' (RMER2, BIT 10) a 

71 076547 116 123 «EMS105: .ASCIZ @ LSC'* (RMER2, BIT 11) a 

72 076576 + «=110 “105 101 £MS106: .ASCIZ @HEADER ERRORS @ 

73076615 102 125 123 EMS110: .ASCIZ @BUS TIMEOUT (04 TRAP) @ 

74 076644 101 104 104 ~EMS111: :ASCIZ @ADDRESS a 

75 076655 127, = 110 = 105s EMS112: .ASCII @WHEN READING/WRITING RH REGISTERS @ 
7% 076717 = s‘103 124 040 “ASCIZ @AT THE FOLLOWING @ 

77 676741 124 110 105 EMS113: .ASCIZ @THE SELECTED DEVICE IS a 

78 076771 116 117 116 EMS114: .ASCIZ @NONEXISTENT DEVICE a 

79077015 = 015.s«2~=—Ss« Ss EMS115: .ASCIZ <CR><LF> 

80 077020 124 #110 105 EMS116: .ASCIZ @THE MASSBUS CONTROLLER @ 

81077050 106 101 111 EMS117: .ASCIZ @FAILED TO DETECT a 

82077072 116 117 124 EMS120: .ASCIZ @NOT AN RMO5S/3/2 a 

83077113 103 117 116 EMS121: .ASCIZ @CONTROL STATUS REGISTER 1, RMCS1, @ 
84077156 102 125 123 EMS122: .ASCIZ @BUS ADDRESS REGISTER, RMBA, @ 

85 077213 =9103 = 117, —s«d116- EMS123: .ASCIZ @CONTROL STATUS REGISTER 2, RMCS2, @ 
86 077256 105 122 122 EMS124: .ASCIZ @ERROR REGISTER 1, RMERI, a 

87 077310 ~—«: 101 124 124 EMS125: .ASCIZ @ATTENTION SUMMARY REGISTER, RMAS, @ 
88 077353 S115.‘ 111 EMS126: .ASCIZ @MAINTENANCE REGISTER #1, RMMR #1, a 
89 077416 105 #103 #103 EMS127: .ASCIZ @ECC POSITION REGISTER, RMEC1, @ 

90 077455 = 105 103 103 €MS130: .ASCIZ @ECC PATTERN REGISTER, RMEC2, @ 
91077513 39115 ~—*101 117 EMS131: .ASCIZ @MAINTENANCE REGISTER 2, RMMR2, a 
92077553 116 117 124 EMS132: .ASCIZ @NOT INITIALIZED BY a 

93 077577 —-:125 116 = 171—«EMS133: .ASCIZ @UNIBUS INITIALIZE @ 

94 077622 103 117 116 EMS134: .ASCIZ @CONTROLLER CLEAR, I.E. BIT 5 OF a 
95 077 122 110 057 EMS135: .ASCIZ @RH/RM ERROR CLEAR (RMCS1, BIT 14) a 
96 077727 ~—-_:104 122 = 111:—«EMS136: .ASCIZ @DRIVE CLEAR COMMAND @ 

97 077754 104 122 111 +EMS137: .ASCIZ @DRIVE STATUS REGISTER, RMDS a 

98 100011 115 105 104 -~EMS140: .ASCIZ @MEDIUM OFF LINE 

99 100032 0422115. =Ss«d1:17—s«EMS141: .ASCIZ a’ MOL’ (RMDS, BIT 12) a 

100 100060 =§:104.— ss 122)—~2Ss«d1:1-« EMS142: <ASCIZ @DRIVE FAULT 
101 100075 = 042—s«*10K 126 EMS143: .ASCIZ @'DVC'* (RMER2, BIT 7) a 
102 100123 125 116 123 EMS144: [ASCIZ @UNSAFE a 
103 100133. O42—Sts«d125 116 EMS145: .ASCIZ a@'UNS'’ (RMER1, BIT 14) a 
104 100162 = 123)=Ss«110-~=Ss«117-« EMS146: [ASCIZ @SHOULD BE SET a 
105 100201 117 106 106 EMS147: .ASCIZ @OFFSET MODE a 
106 100216 =6s 040 —s«sd126-=—s«117-s«EMS150: .ASCIZ LUME VALID @ 
107 10023 042 117 115 EMS151: .ASCIZ a’‘OM’ (RMDS, BIT 0) a 
108 100261 042 126 126 EMS152: -ASCIZ a’'VV'’ (RMDS, BIT 6) a 
109 100305 = «120-—Ss«'10 103 EMS153: .ASCIZ @PACK ACK COMMAND a 
110 100327, 116—sis«d117,—'s«'124SsEMS154: .ASCIZ @NOT SET BY a 

111 100343 = 117, = «106 =—s«*106-s«EMS155: .ASCIZ @OFFSET COMMAND a 
112 100363 = 116—Ss«d117,—Ss«*1:24-s« EMS156: <ASCIZ @NOT RESET BY a 
113 100401 122 126 = 103-«EMS157: <ASCIZ @RTC COMMAND @ 

114 100616 122 111 °120 EMS160: .ASCIZ @RIP COMMAND @ 
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115 100433 117 106 106 €MS161: .ASCIZ @OFFSET REGISTER (RMOF) @ 
116 100463 EMS 162: ; <UNUSED> 
117 100463 104 125 122 £EMS163: .ASCIZ @DURING RECALIBRATE a 
118 100507 117 123 040 EMS164: .ASCII @IS INTERMITTENT OR DRIVE DIDNT DROP ON @ 
119 100556 103 131 114 -ASCIZ @CYLINDER a 
120 100570 125 116 105 &MS165: .ASCIZ @UNEXPECTED a 
121 100604 122 105 103 §&MS166: .ASCIZ @RECALIBRATE COMMAND @ 
| 122 100631 042 101 124 EMS167: .ASCIZ a’ ‘ATA’ (RMDS, BIT15) @ 
| 123 100656 127 110 105 €MS170: .ASCIZ @WHEN READING REGISTER @ 
| 124 100705 105 122 122 EMS171: .ASCIZ @ERROR REGISTER #2, RMER2, a 
| 125 100740 116 117 116 EMS172: .ASCIZ @NONRECOVERABLE a 
| 126 100760 122 105 103 €MS173: .ASCIZ @RECOVERABLE a 
| 127 100775 104 101 124 E—MS174: .ASCIZ @DATA a 
| 128 101003 104 125 122 EMS175: .ASCIZ @DURING WRITE COMMAND @ 
| 129 101031 042 117 120 EMS176: .ASCIZ a’ ‘OPE'’ (RMER2, BIT 13) a 
| 130 101060 111 116 040 €MS177: .ASCIZ @IN WRITE PROTECT a 
| 131 101102 = 103.—=Ss«107-~S/s«116-« EMS200: “ASCIZ @CAN NOT SET a . 
132 101117 104 111 101 £MS201: .ASCIZ @DIAGNOSTIC MODE ‘DMD'' (RMMR1, BIT-0) @ 
133 101165 104 125 122 EMS202: .ASCIZ @DURING DIAGNOSTIC MODE a 
134 101215 111 116 103 EMS203: .ASCIZ @INCORRECT a 
135 101230 042 127 122 EMS204: .ASCIZ a’ WRL'' (RMDS, BIT 11) a 
136 101256 105 130 105 EMS205: .ASCIZ @EXECUTED a 
137 101270 127 111 124 EMS206: .ASCIZ @WITH “COMP ERROR SET a 
138 101315 042 107 117 EMS207: .ASCIZ a''GO"’ (RMCS1, BIT 0) a 
139 101342 127 122 111 EMS210: .ASCIZ @WRITING a 
140 101353 127 101 123 EMS211: .ASCIZ @WAS RESET BY @ 
141 101371 120 122 117 EMS212: .ASCIZ @PROGRAM INTERRUPT a 
142 101414 127 101 123 EMS213: .ASCIZ @WAS NOT GENERATED @ 
143 101437 123 105 105 £MS214: .ASCIZ @SEEK COMMAND a 
144 101455 120 122 117 EMS215: .ASCIZ @PROGRAM TIMEOUT a 
145 101476 104 125 i122 EMS216: .ASCIZ @DURING LOOK AHEAD TEST a 
146 101526 114 117 117 EMS217: .ASCIZ @LOOK AHEAD REGISTER,RMLA, a 
147 101561 123 105 101 EMS220: .ASCIZ @SEARCH COMMAND a 
148 101601 102 101 104 EMS221: .ASCIZ @BAD SECTOR ERROR ‘BSE’ (RMER2, BIT 15) @ 
149 101651 101 - 040 104 £MS222: .ASCIZ @A DATA TRANSFER COMMAND a 
150 101702 110 105 101 EMS223: .ASCIZ @HEADER COMPARE INHIBIT ‘'HCI'' (RMOF, BIT 10) a 
151 101757 116 117 116 EMS224: .ASCIZ @NONEXISTENT MEMORY ‘NEM’ (RMCS2, BIT 11) @ 


_— <——ee 


; 
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1 102031 105 130 130 FHI: eASCIZ @EXPCTD RECEVDa 

2 102050 102 125 123 £€H110: .ASCIZ @BUSADRA 

; 102057 040 122 175 €H111: .ASCIZ @ RMCS2 RMCS1a 

5 102076 12 105 103 £€H114: .ASCIZ @RECEVD SNGPRT DULPRTA 

‘ 10¢123 19 130 120 EH223: .ASCIZ @EXPCTD RECEVD DATAa 

7? 102153 105 130 120 EH256: .ASCII] @EXPCTD RECEVD RGSTRA<CRLF> 

g 102201 123 124 101 -ASCIZ @STATUS STATUS INDEXa 
10 102227 107 104 101 FH336: .ASCIZ @GDADRS GDDATA BDADRS BDDATAa 

17 102266 1e¢ 115 193 EH337: ASCII arse STATUS FAILING esnepernr> 
12? 10 ‘ <CRLF > 
18 102364 105 130 120 ASCIZ @EXPTYD--RETEVD “~“BYT”~"ABRESSa 
15 102423 122 rs 105 £H344: .ASCII @RMER1 STATUS HEADER FAILING@<CRLF> 
16 102463 137 137 137 ASCII a eb WORD BI Ta<CRLF> 
17 102521 105 130 120 ASCIZ a@EXPCTB--RETEVB NUMBER POSITON@ 
18 102561 105 130 120 €H353: .ASCII @EXPCTD RECEVDa<CRLF> 
4 102600 040 122 11 -ASCIZ @ RMLA RMLA RMOF @ 
21 102627 040 122 175 STSH1: .ASCII @ RMCS1 RMCS2  RMDS RMER1  RMER2Z@ 
22 102674 040 040 -ASCIZ @ # RMASA@ 
23 102704 040 122 115 STSH2: .ASCII @ RMW A RMOF RMD Ca 
24 102751 040 040 040 ASCIZ @ RMEC1 RMEC2a 
25 102773 040 122 115 STSH3: .ASCIZ @ RMD C F RML Aa 
26 103037 040 122 115 STSH4: .ASCIZ @ RMMR1 RMMR2~ RMDT RMSNa 


mM 
™~S 

s 
mn 
< 
m 
2 
° 
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103070 001140 001142 Q00000 €ED!: . WORD SGDDAT , SB8DDAT 0 
103076 001276 C00000 : He 
103102 001174 001176 O00000 ED111: .wORD $TMPO,$TMP1,0 


103110 001362 001200 £€D114: .WORD RMDTI,$TMP1,$TMP2,0 
103120 001140 001142 001174 ED223: .WwORD S$GDDAT,$BDDAT,$TMPO,0 


103130 0011346 001140 001136 £D336: .WORD $GDADR,$GDDAT,$8DADR,$8DDAT,0 


103142 001140 001142 001174 £€D357: .WORD $GDDAT,SBDDAT,$TMPO,STMP1,0 
103154 001140 001142 001442 €D353: .WORD $GDDAT,$BDDAT,RMOFO,0 


103164 001334 001344 001346 STSDi: .WORD RMCS1],RMCS21,RMDSI,RMER11 ,RMERZI ,RMASI ,9 
001336 001340 001342 STSD2: .WORD ee ee se eee 


000000 C21, 
103222 001342 001370 001366 STSD3:  :wWORD RMDAI,RMDCI.RMOF].RMLAI,0 
103234 001360 001374 001362 STSD4: lwWORD RMMR11,RMMR2I RMDTI.RMSNI.O 


NO UPWN —$O OO NAW Pwr ou 
— 


a et 4 etd ees 
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7 7 a6 EF110 BYTE 0 
: 1 os EFI11 BYTE 0,0 
1 1 OOO €F114: .BYTE 0,0.0 
4 19 54 pes 000 €F336: .BYTE O6,0,0, 
| : 1 000 €&F 337 BYTE 0,0,0.,0.0 
? 103265 000 000 O00 STSF -BYTE 0,0,0,0,0,0.0 


SEG 0276 


———e <=. — 
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wt wt et te et et te 


SBSBVAEARAVUS GOVRAP AW AS o@VOUnwn- 


103274 


194806 


103274 


TSTy 7 
7 -? 


Lossesscscs; 


061 


ee 
dl 


BUFFER: 
BUF ONE : 
BUF TWO: 


“ASC 


i 
4) 
oO ’ 
te me ae me me be ne be bane bam a ban by hme tn be bt bem bene pet bmg be beg beng bn bn bm Bt me bas be be ae bs bt ne ne bs be Be ae be bay bs he Bs bs bs BH bs oe 
ame mg me bg beng bmg me ng mg bmg meg mg mg Bement mre mnt bmg ane Brees bmg erg eg bmg mg Bang bmg bag be bmg bg by beg bmg be be Ome me bs bane be be be he be ane bg be be 


-BLKW 
-BLKwW 


<CRLF> 
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258. 
258. 


<CRLF > 
@LIST OF TESTS@<CRLF > 


wontee a<CRLF > 


CONTROLLER ACCESS TEST@<CRLF > 
UNIBUS INITIALIZE TEST@<CRLF> 
CONTROLLER CLEAR TEST@<CRLF > 
ERROR CLEAR TEST@<CRLF> 

DRIVE STATUS TEST@<CRLF> 
PRIMARY/SECONDARY ERROR TEST@<CRALF> 
DIAGNOSTIC MODE TEST@<CRLF> 
PACK ACKNOWLEDGE TEST@<CRLF > 
RECALIBRATE TEST@<CRLF> 

ABORT RECALIBRATE TEST@<CRLF> 
IVC RECALIBRATE TEST@<CRLF> 
IAE RECALIBRATE TEST@<CRLF > 
RECALIBRATE AT OFFSET@<CRLF> 
DRIVE CLEAR TESTa@&<CRLF> 

NOP TEST@<CRLF> 

OFFSET TEST@<CRLF> 

GO/ATA TEST@<CRLF> 

WRITE ATA TEST@<CRLF> 
ERROR/ATA TEST@<CRLF > 

PROGRAM INTERRUPT TEST@<CRLF> 
INHIBIT INTERRUPT TEST@<CRLF> 
RETURN TO CENTERLINE TEST@<CRLF> 
READ IN PRESET TEST@<CRLF> 
RMDC CLEAR OFFSET TEST@<CRLF> 
ILLEGAL FUNCTION TEST@<CRLF> 
INVALID COMMAND TESTa@<CRLF> 
INVALID ADDRESS ERROR TESTa<CRLF> 
WRITE LOCK ERROR TESTa@<CRLF> 
ERROR ABORT TESTS@<CRLF> 

RMR TEST@<CRLF> 

PARITY ERROR TEST@<CRLF> 
ILLEGAL REGISTER TEST@<CRLF > 
SEEK FIRST CYLINDER@<CRLF > 
SEEK LAST CYLINDER@<CRLF> 
SEEK PRIME CYLINDERS@<CRLF > 
SEEK ZERO DIFFERENCEQ@<CRLF > 
SEEK MAXIMUM DIFFERENCE fF ORWARD@<CRLF > 
SEEK ADJACENT FORWARD@<CRLF > 
SEEK ADJACENT REVERSE@<CRLF > 
SEEK INVALID SECTOR@<CRLF > 
SEEK INVALID TRACKa@<CRLF > 
SEEK INVALID CYLINDER@<CRLF > 
IVC SEEK TEST@<CRLF> 

ABORT SEEK TESTa@<CRLF > 

SEEK AT OFFSET@<CRLF> 

LOOK AHEAD TESTa@<CRLF > 


EO 0277 


LS Ee ee =e eee 
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S58 105433 124 065 067 .ASCII aS? SEARCH ON CYLINDER@<CRLF > 

59 105462 124 066 060 .ASCII aT60 SEARCH OFF CYLINDER@<CRLF > 

69 105512 124 066 061 ASCII aré61 SEARCH INVALID SECTOR@<CRLF > 

61 1055464 124 066 062 ASCII atTé2 SEARCH INVALID TRACK&<CRLF > 

42 105575 124 066 063 .ASCII aT63 SEARCH INVALID CYLINDER@<CALF > 

63 105631 124 066 064 ASCII] aT64 IVC SEARCH TEST@<CRLF > 

64 105655 124 066 065 ASCI! aTé65 ABORT SEARCH TEST@<CRLF> 

6S 19570 124 066 066 .ASCII aT66 SEARCH AT OFFSET@<CRLF> 

66 105730 124 066 067 .ASCII aTé67 HEAD ALIGNMENT SEEK@<CRLF> 

67 105760 200 eASCI]I <CRLFO 

68 105761 117 120 105 .ASCII @OPERATIONAL SWITCH SETTINGS@<CRLF> 

o9 106015 055 055 055 VASCII] een n nnn n nnn nee eee e eee -- === @<CRLF> 

70 106051 123 127 171 ASCII @SWITCH USE@<CRLF > 

71 7 055 055 O55 .ASCI] @emee—— ween nese eeennn= <CRLF > 
72 106123 040 040 061 ASCii § 5 HALT ON ERROR@<CRLF > 

73 106147 040 05 061 ASCII a 14 LOOP ON TEST@<CRLF> 

74 106172 040 040 061 .ASCII a 13 INHIBIT ERROR TYPEOUTS@<CRLF > 
75 106227 040 040 061 ASCII @ ie a<CRLF> 

76 106256 040 040 061 ASCII a 11 INHIBIT ITERATIONS@<CRLF > 
77 7 67 040 040 061 ASCII a 10 BELL ON ERROR@<CRLF > 

78 106313 040 0 040 .ASCII] a 9Y LOOP ON ERROR@<CRLF> 

73 106337 040 040 040 .ASCII a 8 LOOP ON TES! IN SWR<7:0>@<CRLF> 
80 106376 040 040 040 .ASCII @ 7 ™N128@<CRLF > 

81 106472 040 040 040 .ASCII ad 6 TN64a<CRLF > 

82 106425 040 040 040 .ASCII a 5 TN32a<CRLF > 

83 106440 040 040 040 .ASCII Oa 4 ™N16a@<CRLF > 

84 106453 040 040 040 .ASCII oF 3 TN8@<CRLF > 

85 106465 040 040 ASCII a 2 TN42<CRLF > 

86 106477 040 040 040 .ASCII a TN2a@<CRLF > 

a4 106517 040 040 040 .ASCIZ a 0 TN1a@<CRLF> 

me v00200 END 200 
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-—- eee = 
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el 


TABLE 
176700 AUNIT = 000000 CH = 002000 EDT114 073500 EMS103 076511 
000000 AUSWR = 090 CHGADR 001326 EDT2 073464 EMS104 076520 
000000 AVECTI= 120254 CHRCNT 064007 EDT223 073502 EMS105 076547 
053262 AVECT2= 000000 CKSWR = 104410 EDT336 073512 EMS106 076576 
900000 Al6 = 0004 CLKADR 001510 EDT337 073522 EMS11 074232 
000000 a1? = 001000 CLKVCT 001512 EDT344 073532 EMS110 076615 
060000 BACK = 000001 CLR = 000040 — EDT353 073544 EMS111 076644 
000000 BADTMO 005332 CLASTS 052402 EDI 103070 EMS112 076655 
000000 BAI = 0000 CMNSTA 007466 ED110 103076 EMS113 076741 
000000 BBOO = 0000 CMPERR 059400 ED111 103102 EMS114 076771 
000000 BB01 = 000002 CNSLO1 066375 ED114 103110 EMS115 077015 
000000 BBO2 = 000004 CNSLO2 066405 ED223 103120 EMS116 077020 
000000 BB03 = 000010 CNSLO3 066447 ED336 ©: 103130 EMS117 077050 
000000 8804 = 000020 CNSLOS 066456 ED337 © 103142 EMS12 074243 
000000 BB05 = 000040 CNSLO7 066512 FD353 103154 EMS120 077072 
000000 BB06 = 000100 CNSLOB 066654 FECC = 000020 EMS121 077113 
000000 BB07 = 0 CNSLO9 066655 EFT] 073546 EMS122 077156 
000000 BBO8 = 000400 CNTCLR 052264 EFT110 073564 EMS123 077213 
000000 BB09 = 001000 C 066341 EFT111 073566 EMS124 077256 
600000 BITO = 000001 CONT = 000100 EFT114 073570 EMS125 077310 
000000 BITOO = 000001 CPSAVE (63130 EFT2 073556 EMS126 077353 
000000 BITO1 = 000002 CR = 000015 EFT223 073572 EMS127 077416 
000000 BITO2 = 000004 CRLF = 000200 EFT336 073602 FMS13 074304 
000001 BITO3 = 000010 CYLMSK= 001777 EFT337 073612 EMS130 077455 
000000 BIT04 = 000020 DBCK = 100000 EFT344 073622 EMS131 077513 
000000 BITOS = 000040 DBEN = 040000 EFT353 073632 EMS132 077553 
BiT06 = 000100 DBL = = _-(002000 EF110 103246 EMS133 077577 
066330 BITO7 = 00 DCK = 100000 EF111 103247 EMS134 077622 
000000 BITO8 = 000400 DDISP = 177570 EF114 103251 EMS135 077664 
000000 BITOS9 = 001000 DEBL_ = 020000 EF336 © 103254 EMS136 077727 
000000 BIT1 = 000002 DEVSEL 050612 EF337 103260 EMS137 077754 
000000 BIT10 = 002000 DISPLA 001156 EHT] 07332 EMS14 074315 
000000 BIT11 = 004000 DISPRE 000174 EHT110 073354 EMS140 100011 
000000 BIT12 = 010000 DLT = 100000 EHT111 073360 EMS141 100032 
000000 BIT13 = 020900 DMD = 000001 EHT114 073364 EMS 142 
000000 BIT14 = 040000 DPE = 000010 EHT2 073344 EMS143 100075 
000000 IT15 = 100000 DPEHI = 040000 EHT223 073370 EMS144 100123 
000000 BIT2 = 000004 DPELO = 020000 EHT256 073402 EMS145 100133 
000000 BIT3 = 000010 DPR = 000400 EHT336 073414 EMS146 100162 
000000 BITS = 000020 DRIVES 067070 EHT337 073426 EMS147. 100201 
000000 BITS = 000040 DRO = 004000 FHT344 073440 EMS15 074326 
000000 BIT6 = 000100 DRVCLR= 000010 EHT353 073452 EMS150 100216 
000000 5117 = 000200 DRVSTS 055020 EH] 102031 EMS151 100235 
001000 BIT8 = 00040 DRY = 000200 FH110 102050 EMS152 100261 
BIT9 = 001000 DSWR = 177570 EH111 102057 EMS153 100305 
100000 BLNKS1 067133 DTE = 010000 FH114 102076 EMS154 100327 
BLNKS2 067132 DTO = 010000 FH223 102125 EMS155 100343 
000040 BLNKS3 067131 DULPRT= 024024 EH256 © 102153 EMS156 100363 
1 BLNKS4 067130 DVA = 004000 EH336 © 102227 EMS157 100401 
000200 BOTADR 064004 DVC = =_-000200 FH337 102266 EMS16 074350 
000100 BOTFLG 064006 EBL = 020000 EH344 102422 EMS160 100416 
000002 BPTVEC= 000014 ECH = 000100 FH353 102561 EMS167 100433 
BSE = 100000 ECI = 004000 EMS! 073634 EMS162 100463 
100000 BUFFER 103274 ECRC = 001000 EMS10 074170 EMS163 100463 
000000 BUFONE 103274 EDT! 073456 EMS100 076406 EMS164 100507 
000377 BUFTWO 104300 EDTI10 073474 EMS101 076434 EMS165 100570 
067236 CC —- =: 004000 EDT111 073476 EMS102 076462 EMS166 100604 


—_ «= — - -- —~-- _——_— ——_- -- 


J RMME. 
YMBO. 7 


EMS167 


‘ 
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075410 


070642 


EMT210 


067334 
070654 


071526 
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EMT 272 
EMT 273 


072316 


EMT 274 


072334 
072352 
072364 
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SYMBOL TABLE 
SAB == 000010 Sw4 == 000020 TST42 §=—02. 7306 $ATY1 066060 $GET42 041620 
$C = 1 SWw5 = =: 000040 TST43) = 027574 $SATY3 066066 $GTSWR 064600 
SCHSTS 056422 SW6 = =: 900100 TST44 030106 $ATY4 066076 $GT42P 041614 
SCOPE = SW7 == 000200 TST45 030406 $AUTOB 001150 $HD = Q00000 
SCTMSK= 903700 SWB = TST46 =. 300666 SE 01276 $HIBTS 001100 
x0 == 000100 S = 001000 TST47 = 031170 $BDADR 001136 $HIOCT 065572 
SC1 = =: 000200 SYSTAT 0667 TST5 011660 $BDDAT 001142 $ICNT 001120 
= 00 TADMSK= 177400 TST5O = 031474 ELL 01212 $ILLUP 
SC = 001009 TAG = 020000 TSTS51) «= 032112 $BIN 060640 $INTAG 001151 
S€4 = =_ 002000 TAGADR= 001114 TST52 =©032540 $CDwW1 001302 $ITEMB 001130 
SEARCH= 30 = 040000 TSTS 03315 $CDW2 001304 $LF 001220 
SECERR 044540 TAi = =_: 900400 TST54 033516 $CHARC 061644 $LFLG 066323 
= TA16- = 010000 TST55 §=©034060 $CKSWR 064510 $LPADR 00 
SEKSTS 051024 TA2 == 001000 TST56 = 054404 $CMTAG 001114 $LPERR 001124 
065450 TAS == 002000 TST57 =©035032 = 000000 SMADR1 001254 
SiZ7CLK 045400 TAB = 004000 TST6 012174 $CM4 = 000005 $MADR2 001260 
= 04 TBITVE= 000014 TST60 035510 $CNTLC 065406 $MADR3 1 
SNGPRT= 020024 TIMOUT 043522 TST61 036214 $CNTLG 065420 $MADR4 001270 
STACK = 0011 TKVEC = 000060 iST62 4 =—60 336614 SCNTLU 065413 $MAIL 001222 
STANDA (CO07010 TPVEC = 000064 TST63 = 0372.24 $CPUOP 001250 1 1252 
START 005422 TRAPVE= 000034 TST64 037624 $CRLF 01217 SMAMS2 001256 
START? 005412 TR = 040000 TST65 040204 $DBLK 061056 $MAMS3 001262 
START2 005426 TRTVEC= 000014 TST66 = §©040550 $DDWO 001306 $MAMS4 001266 
STCDRV 057766 TST = 010900 TST67 = =6041106 $DDW1 001310 SMBADR 001102 
STKLMT= 177774 TSTNMB 064000 TST? 012354 $DDw2 001312 SMFLG 066322 
STOP 062512 TSTPRP 041650 TYPBN = 104406 $DDW3 001314 W 065436 
STSD1 1035164 TSTQUE 001464 TYPDS = 104405 $DDW4 001316 SMSGAD 001236 
STSD2 103202 TST] 010046 TYPE = 104401 $DDWS5 001320 $MSGLG 001240 
STSD3 = 103222 TST1IO }§=—.01 3426 TYPOC = 104402 $DDW6 = 001322 $MSGTY 001222 
STSD4 34 TST11 §=©013726 TYPON = 104404 $DDW7 01324 $MSWR 065425 
STSF 103265 TST12 «014144 TYPOS = 104403 $DEVCT 001232 SMTYP1 001253 
STSH1 102627 TST15) =6014452 UNS = 040000 01300 SMTYP2 O00 
STSH2 102704 TST14 = =014762 UNTMSK= 000007 $DOAGN 041640 SMTYP3 001263 
STSH3) =: 1102775 TSTIS «015224 UNTOFF 067047 $DTBL 061046 $SMTYP4 001267 
STSH4 103031 TST16 15502 UNTON 067060 $ENDAD 041630 $MXCNT 062352 
001154 TSTIZ-. 015752 UPE = 020000 SENDCT 041466 L 001170 
SWREG 000176 TST2 010246 USE = 040000 SENULL 041644 $NWTST= 1 
SWwO = TSTe 016202 UO = SENV 001242 SOCNT 061310 
SwOO = 000001 TST21 016526 U1 = 090002 SENVM 3 001243 $ 061312 
SwO1 = 000002 TST22 017146 U2 = 000004 $EOP 041432 SOVER 062316 
SWO2 = TST23) =—017512 VV = 000100 SEOPCT 041460 $PASS 001230 
SWOS = 10 TST24 020104 WC = 000040 $SEOSP 041374 $PASTM 001106 
SWOS4 == 000020 TST25 020574 WCD = 000050 SERFLG 001117 $POWER 066 
SwOS = 00004 TST26 §=021142 WCE = 040000 SERMAX 001131 $PWRDN 065702 
SWO6 = 000100 TST27 §=021464 WCEHI = 010000 $ERROR 062540 0 
SWO7 = 200 TST3 011116 WCELO = 004000 $ERRPC 001132 $PWRUP 065754 
SwO8 = TST30 022046 wW = 000040 SERRTB 001572 SQUES Q01216 
SwO9 = 001000 TST31 §=©022364 WOH = 000052 SERTTL 001126 $SRDCHR 065052 
Swi = = 000002 TST32 = =©023750 wD = 000060 $ESCAP 001210 SRDLIN 06 
SwW10 = 002000 TST33) = 023674 WH = 000062 SETABL 001242 $RDOCT 065472 
Swi? = TST34 «©024464 WLE = 004000 SETEND 001326 $RDSZ = 0 
SW1i2 = 010000 TST35 = 025250 WRL_ = 004000 $FATAL 001224 $RESRE 0605 
SW13 = 020000 TST36 = 025602 XS1Z 006454 SFFLG 066324 $RMO2 066756 
SWi4 = 040000 TST37 = 0026242 XXDP 001330 $FILLC 001172 $RMO3 066743 
Sw15 = 100000 TST4 011454 67126 $FILLS 001171 $RMOS 066750 
SWw2 = TST6O =: 026462 $APTHD 001100 $GDADR 001134 $RINAD 041642 
SWS = 000070 TST47 = 027020 $ATYC 066104 i $GDDAT 001140 $SAVRE 060472 


2 4 
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SYMBOL TABLE | 


BSAVRE 066046 $TkB 001162 $™MP3 001202 STSTNM 001116 
$SCOPE 061550 $TKCNI 064200 - $TMP4 001204 $TTYIN 065376 
$SE TUP= STKINT 064210 $™N = 000070 $TYPBN 060566 
SSTUP = 177777 $TKOQEN= 064207 $TPB 001166 $TYPDS 060642 
SSVLAD 062262 $TKQIN 064202 STPFLG 001173 $TYPE 061314 
$SVPC = 000210 $TKC™ 064204 $TPS 001164 $TYPESC 061526 
$SwWR = 167400 $TKGLR 084206 $TRAP 065574 STYPEX 061646 
BSWREG 001244 $TKS 001160 $TRAP2 (65634 $TYPOC 061112 
= $TKSRV 064260 $TRP = 000016 $TYPON 061126 
| $5wO8T 062334 $TMPO 001174 $TRPAD 065646 $TYPOS 061066 
ETESTN 0017226 $TMP1 001176 $TSTM * 001104 $UNIT 001234 
STIMES 001206 $TMP2 001200 
- ABS. 106524 000 
001 


000000 
FRRORS DETECTED: 0 


VIRTUAL MEMORY USED: 61952 WORDS ( 242 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
C2RMMB BIC, CZRMMB/C=CZ7RMMB.DOC, CZRMMB,SYSMAC/M 


RMO5/3/2 FCTNL TST 1 


~ 2RMMBO 
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S$GE 74 
$25w08 


SOF ILL 


38-1 
42-14 


35-1* 


38-i* 
44-1 


35-1" 


38-1 


-80* 
-126* 
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~826* 
~969* 


‘ 
a ee Oe ee ee - _— 
— - ee we eee — 


39-1 
39-1 
39-1 
39-1 
39-1 
39-1 
39-1 
39-1 
39-14 
39-14 
39-14 
39-14 


13-255 


3 
56-11 


SEQ O28 
39-1 y= 
39-1 39-1 
39-1 39-1 
39-1 39-1 
39-1 39-1 
C=] 39-1 
39-1 39-1 
39-18 39-14 
39-14 39-14 
39-14 39-14 
39-12 39-14 
13-375 13-400 
135-811 13-842 
13=>46 13->80 
13-D64 13-E12 
13-106* 13-108 
13-198* 13-217* 
13-307* 13-308« 
13-354* 13-359" 
15-636* 13-652* 
135-875* 13-898 
135-:36* 13-:37* 
13-:70 13-<50O* 
135-F19* 21-49 
22-64* 22-65% 
22-158 22-170* 
22-272 22-284* 
22-4635* 22-417* 
23-93% 23-94 
26-68 26-88" 
28-32* -34 
28-116" 28-117* 
30-65* 30-82* 
31-17 31-19 
31-84 31-94 
32-209 32-227* 


SE U 028 5 
6-0 6-0 6-04 6-00 


6-0 
10-23 
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42=1 42-1" 42-18 420108 42-18 &2=16 


7 


C 
11:43:28 PAGE S=5 


42-1 


MACRO V04.00 4-APR-81 


CROSS REFERENCE TABLE (CREF vO1=-05 » 


EKQIN 42-1 


6-0" 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 


EMS150 
EMS151 


EMS162 
EMS 163 


54-1154 


50-59 
50-73 


50-30 
50-77 
54-748 


50-102 
50-103 


50-216 
50-106 


50-113 
50-54 


50-123 


54-1114 


50-115 


54-1134 


50-116 


50-60 
50-117 


50-31 
54-738 
50-127 
50-50 


50-225 
50-149 
50-99 
50-90 
50-101 


50-169 
54-884 


50-173 
50-63 


50-124 
50-116 


54-1144 


50-61 
50-143 


50-32 


54-778 


50-51 
50-109 
50-189 


54-804 
50-178 
54-834 
50-90 


54-864 
54-874 


50-217 
50-111 


54-1104 


50-173 


50-62 


54-1174 


50-33 


50-52 
50-110 
50-190 


50-185 


50-91 


50-84 
50-98 


50-84 
50-93 


50-104 


50-137 


54-1024 
54-1034 


54-1054 


50-111 


54-1074 


50-134 


54-1124 


50-63 


50-43 


50-54 
50-134 
50-192 


50=201'- 


50-92 


50-85 
50-99 


50-85 
50-94 


50-105 


50-186 
50-107 


54-1004 


50-133 


50-64 


' FF 
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50-177 


50-93 


50-86 
50-100 


50-86 
50-95 
50-106 
50-192 
50-122 
50-140 


50-138 


50-183 


50-65 


cual le 


50-94 


50-87 
50-101 


50-87 
50-96 
54-964 
54-984 
50-137 


50-184 


50-182 


50-194 


50-66 


50-61 
50-140 
50-195 


50-229 


50-95 


50-88 
50-102 


50-125 
50-126 


50-187 
50-202 


50-185 


50-195 


50-67 


50-63 
50-142 
50-201 


50-230 


50-96 


50-89 
50-103 


54-934 
54-944 


50-188 
50-205 


50-194 


50-223 


erm, 


50-68 


50-66 
50-179 
50-205 


50-231 


50-98 


50-90 
50-104 


50-19% 


54-1018 


50-195 


54-1084 


50-69 


50-67 
50-182 
50=221 


54-814 


50-126 


50-91 
50-105 


50-222 


50-225 


50-70 


> , U Ve st 


54-854 


50-92 
50-106 


54-9948 


50-2 34 


50-71 


i 
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CROSS REFERENCE TABLE (CREF vOI-05 > SEO 


EMS164 50-45 54-1184 
EMS165 50-56 50-57 50-71 50-72 50-172 50-196 50-197 50-198 54-12%8 


——MS167 50-8 50-49 50-68 50-123 50-124 50-168 50-169 50-170 50-175 50-235 $4-122¢ 


 £—MS171 50-57 50-105 50-125 50-126 54-1244 


EMS175 ay ¥ sae 50-217 50-218 50-219 54-1284 


EMS2 50-4 50-5 54-44 
EMS20 50-34 50-58 50-110 50-118 50-119 50-120 50-121 50-212 50-232 50-238 54-184 


EMS202 50-122 50-130 50-131 50-132 50-133 50-134 5 
EMS203 50-122 50-150, 50-151 50-132 50-133 50-174 5 
EMS205 50-55 = 50-142 50-179 50-233 54-136 

EMS206 50-55 = 50-142 50-170 50-179 50-233 54-1374 
EMS207 50-168 50-170 54-138 

EMS210 50-169 50-170 50-173 54-1398 


EMS212 50-171 50-172 54-1414 


36 =650-180 }§854-1334 
75 50-176 850-2357 54-1344 


EMS221 50-231 50-238 54-1484 


EMS25 50-19 50-115 54-234 
EMS26 50-20 50-116 50-173 54-244 
EMS27. 50-16 «=: 550-19 Ss 50-20 550-115 9 550-116) 50-173 54-254 


50-4 
EMS50 50-17 50-18 50-21 50-22 50-23 50-24 30-25 50-26 50-27 50-28 30-29 50-30 50-31 50-32 
50-43 50-122 50-130 50-131 50-132 50-135 50-144 50-145 50-146 50-147 50-174 50-175 50-176 


64 
EMS31 50-21 sab 50-207 50-208 54-274 


EMS34 50-24 50-225 50-226 50-227 54-304 
EMS36 50-26 © 50-213 50-214 50-215 54-324 
EMSA 50-5 50-75 54-64 


EMS40 =: §00= 28 50-220 54-344 
EMS41 50-29 50-190 50-1791 54-354 


— LO OS ee 
Ee ae —— ee ee 


—-< ————— ee ee ee 
EEE Sillss-sssststetstsssssssssssssiessss-sssssstcnssssen 
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CROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 0298 
¢ +O 50-206 54- 
EMS45 8650-31 209 54-378 


EMS46 «= 50-43 50-58 S0-120 50-145 50-177 50-185 50-199 50-201 54-40% 
EMS47 = §0=37 50-44 50-45 $0-52 50-60 50-61 50-66 $0-117 50-118 50-147 50-186 50-187 50-188 50-192 


50-6 
EMSSO 50-46 50-48 50-64 50-70 50-132 50-135 50-139 50-141 50-181 50-185 50-189 50-200 50-201 50-221 


 £—MS5S1 = 50-48 50-55 50-70 50-130 50-139 50-142 50-179 50-189 50-221 54-434 
| EMS52 =—-550=55 50-142 50-143 50-148 .- 50-149 50-178 50-179 50-185 50-201 50-228 50-229 50-230 50-231 50-233 


| —MS53 50-37 50-38 50-39 50-40 50-44 50-45 50-46 50-47 50-62 50-64 50-65 50-73 50-140 50-141 
50-181 50-182 50-184 50-186 50-187 50-190 50-191 50-192 50-193 50-194 50-195 50-200 50-202 50-203 
90-204 50-206 50-207 50-216 50-218 50-219 50-220 50-226 54-454 | 


EMS56 50-50 50-51 50-54 50-62 50-65 50-67 90-119 =50-143 =50-144 3=50-178 50-182 50-183 50-194 50-195 
50-225 50-228 50-234 54-484 

EMS57 50-190 50-191 50-192 50-193 50-194 50-195 50-196 50-197 50-198 50-199 50-200 50-201 50-202 40-203 
90-204 50-205 50-206 50-207 50-208 50-209 50-210 50-211 50-213 50-214 50-215 50-220 50-221 50-222 
or. 50-228 50-229 50-2350 54-494 


EMS6 54-84 
E 50-224  54-50# 
EMS61 50-224 54-514 me 


E 
EMS63 50-42 50-149 50-190 54-534 
EMS64 50-8 50-14 50-41 50-144 50-145 50-146 50-147 50-199 54-544 


EMS66 50-34 50-218 54-564 
EMS67 50-43 50-44 50-45 50-46 50-47 50-48 50-49 50-50 50-51 50-52 50-54 54-574 


EMS70 §=50-48 50-50 50-52 50-54 ‘50-66 50-70 50-73 50-107 50-110 50-159 50-182 50-189 50-194 50-205 


EMS71 50-51 50-59 50-635 50-183 50-195 50-208 54-594 

EMS72 50-36 50-48 50-51 50-55 50-56 50-57 50-60 50-61 50-61 50-635 50-108 50-109 50-154 50-135 
30-139 50-140 50-142 50-179 50-183 50-187 50-193 50-195 50-232 54-604 

EMS73 , 50-49 50-54 50-67 50-68 50-156 50-180 50-188 50-222 50-223 50-234 50-235 54-614 


: 50-6 

EMS75 50-35 50-66 50-67 50-137 850-138 50-188 50-222 50-2235 50-234 54-634 
EMS76 50-35... . 50-36 50-37 50-38 50-39 50-40 54-644 

EMS77 50-38 50-72 50-148 50-198 54-654 
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50-778 
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MACRO V04.00 4-APR= cates Y 
CROSS REFERENCE TABLE (CREF vO01-05 ) — RMGT 11245328 PAGE $16 


> E Q 0299 


—— « _ 


— 


_———- 
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” 
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MACRO v04.00 


hOSs REFERENCE TABLE (CREF yO?=05 ) 


EMT? 76 
EmT177 


EMT 257 


8-384 
50-1298 


—— eee 


50-1 284 


50-1484 
50-1494 


50-214 


50-224 


50-1684 


S0-1778 


4-APR-B" 


% B 8 
11:63:28 PAGE S-17 


SFO Usuu 


Fee 
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~ 2 RMMBO 

CROSS REFERENCE TABLE (CREF VOI=05 > SEQ 301 
EMT 26 8 50-244 
EMT260) 38=—- 8 = 5.34 0-178 


EMT315 8-6 50-2074 
EMT316 8-633 50-20 

EMT317 8-636 50-2094 
EMT 8-78 50-284 


50-2234 
EMT336 «= 8= 351 5 Shke 50-2244 


ee ee EE SS ee ee — --< — 


——_— oe ow + -< 


- eee ee 
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CROSS REFESENCE TABLE (CREF vO1-05 


EMT341 8 

EMT 34 8-693 
EMT 34 8-696 
EMT344 8-699 
EMT345 8-702 
EMT346 8-705 
EMT347 8-708 


EMT 36 8- 
EMT 37 8-93 
EMTG 8-12 
EMT4O 8-96 
EMT41 8-99 
EMT42 8-102 
EMTS3 8-105 
EMTS 8-15 
EMTS5O 8-120 
EMT51 8-123 
EMTS2 8-126 
EMT53 8-130 
EMT54 8-135 
EMT55 8-136 
EMT56 8-139 
EMTS7 8-142 
EMT6 8-18 
EMT60 8-146 
EMT61 8-150 
EMT6c 8-154 
EMT65 50-534 
EMT64 8-160 
EMT65 8-163 
EMT66 8-166 
EMT67 8-169 
EMT7 8-21 
EMT 70 8-172 
EMT71 8-175 
EMT72 8-178 
EMT73 8-182 
EMT74 8-185 
EMT75 8-188, 
EMT 76 8-191 
EMT77 8-194 
EMTVEC 46-4754 
E S 47-34 
ERR 4-5444 
FE 41-48 
ERROR 4-4758 


50-2278 
50-228" 


D 8 
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10-23* 
15-965 =135=:32 3 8=6913=:98 13-:64 22-84 22-86 
41-52 43-57 41-64 41-1604 


Se One ee eR Steen aetna meetin emanates re es er ee ee 


22-102 


22-156 


Sct 
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ROSS REFERENCE TABLE (CREF vO1-05 ) 


E 


[TNL TST 1 


RMMBO RMOS/3/2 


rer? 
a 


235-113 


41-46 

464-6164 
4-4864 22-29 
4-4854 22-29 
4-4844 22-29 
4-4834 22-29 


ERTVYOO 61-21 
ERTYOS 41-39 


| ERTYO) 
—C ERTYOQG «641-152 


 ERTYO2 41-51 
| ERTYO3 41-53 


SEQ 0504 
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OSS REFERENCE TABLE (CREF vO1-05 » SEO 6305 
HC j 4~6438 13-854 13-864 22-377 
HCR( 4-504# 4-574 22-386 
HE | P 11<17 58-/8 
HT 4-475# 38-1 38-1 41-90 
| AE 4-5628 13-:90 13-:92 -13-010 13-059 13-408 13-049 13-095 13-£42 22-283 23-89 23-105) 232135202647 
26-67 30-24 30-78 30-81 32-88 52-108 48-59 48-69 48-77 48-78 48-81 48-82 48-85 48-86 
IBSAVE 40-1 40-1 40-1 40-1 40-1 40-14 40-1i* 40-18 40-i* 
IDKMSK = 4 =7018 «17-51 17-54 18-45 18-48 | 
if 46-7168 64-7478 13-720 13-781 
ILF 4=572# 13-957 13-959 22-155 22-157 29-51 29111 294115 30-246 4s -30=45. «30-68 «= B58) 4BH67 GBB “< 


48-70 48-71 48-72 48-73 48-74 48-75 48-76 48-79 48-80 48-83 48-84 48-57 48-88 


ILF 76 4-519 135-976 13-:435 15+;09 13-;75 13-<18 
ILR 64-5714 13-=10 15==40 29-51 29-97 29-101  50“232 6930-256 8630-259 


IOTVEC 3 @-4754 10-23* 10-23* 


IPCK1 4-7504 

IPCK2 4-7494 

IPCK3 44-7484 

IR 4-7278 13-83 28-58 

Ive 4-6684 13-456 13-:24 13-:26 1%-A466 8 135-A48 13-A50) 3 =—s-«*1:3-A53)—=—sod135-E84)0=—ss«d13=E8606=—ssd135-E88 Oss 3. $= 91 227198 22-199 
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12-54" 


13-193 
13-318 
13-198 


15-318 


10-109 
26-195 
33-55 


47-164 
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47-1784 
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13-107 
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13-<78 
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13-606 
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13-747 
13-A90 
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13-677 
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30-145 
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13=E06 
32-70 
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13-290 
30-146 


13=<31 


13-879 
13=C€43 


13-920 


13=720 
13-826 


29-73 
48-62 
48-76 


13-; 32 
26-30 


H 8 
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23-62 
32-75 


13-<38 


13-327 
30-153 


13-<38 


13-=79 
135=C99 


13-986 


13-781 
13-896 
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13-766 
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TABLE (CREF vO1=-05 ) 
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SEQ 0310 


os 
' 


CZ7RMMBO RMO5/3/2 FCTINL TST 


CROSS REFERENCE 


13-Bi2 
13-G00 
35-278 


13-A65 
13-C85 
15-F 28 


13-A30 
13-C31 
13-E40 


13-B24 
13-095 


13-A06 
13=D47 


50-253 
13-056 
15-A88 


30-250 
13-207 
13-881 


30-232 
13-764 
13-837 
56-154 


29-87 
28-32 
13-730 
13-749 
Se°l2 


29-83 
21-125 
13-687 
52-11 


21-109 
13-620 


29-51 
52-10 


13-49 
42-34 
52-8 


44-18 
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“ROSS REFERENCE TABLE (CREF vO1-05 ) 


STSD2 = 55-1 S2=2 52-8 52-10 52-11 S2-12 56-144 


 StSdD6 52-1 S2-2 52-8 52-10 52-11 52-12 56-174 
STSF 53-1 53-1 53-1 53-2 53-2 53-2 55-8 53-8 53-8 53-10 53-10 53-10 53-11 53-11 


| STSHT 51-1 S1=2 51-8 51-9 51-11 51-12 51-13 55-214 
| STSH2 51-1 S1=2 51-8 51-9 51-11 51-12 51-15 55-234 


STSHG = 51-1 51-2 51-8 51-9 Ss 11 51-12 51-13 55-264 


SEQ 0411 


SwO 4-4754 
Sw01 4-475 4-4754 


> 
§ 
> 
~ 
Ww 
+ 
u 
* 
N 
Ww 
z 


4-475 4-4754 tetas * 
Sw1 4-475# 
SwW10 4-4754 
Swi | 44-4758 : 


Sw13 4-4754# 41-14 


Sw2 4-4754 

SwW3 4-4754 

SWS 4-4754 

Sw5 4-4754 

SwWé 4-4754 

SWw7 4-4754 

Sw8 44-4754 

Sw9 4-4754 

SWR 6-0F 10-23 10-23 10-23* 10-23* 10-23% 10-28 39-1 39-1 39-1 39-1 39-1 39-1 39-1 
39-1 39-1 39-1* 40-1 40-1 40-1 40-1 40-1 41-14 42-1 42-1 42-1* 45-1 45-1* 


SWREG 5-14 10-23 10-28 42-1 42-1 42-1 


A 4-5284 

TA16 64-5244 12-62 

T 4-527# 12-62 

TAG 4-526# 12-54 

TA8 4-525. 

TADMSK 4-5384 23-66 

TAG 46-6554 

TAGADR 5-94 6-0 } 
TAP 4-6324 


TIMOUT 13-262 13-385 13-406 13-430 13-451 13-477 = 13-499) -“ 13-528) = «*13=564 90 =—s_«*1:33=7222=Ss:« 13-783) =Ss«13-817)=—s:«713-858)~=—s:« 113-951 
13=-:18 13=-:84 13-;50 13-<10 13==71 13-=99 = 13=>28) 3 =615=>635 = 13=>95 Ss - 13=?24 23S ss« 13-758 =): 13=a01 13-350 13-A00 
13-A82 13-810 13-818 13-849 13-C€25 13-C35 13+C€79 8 13=C91 13-039 §=6©13-D85) 3 =613-£320 «= 13-E78 2 = 1 35=F220—13=F 52 
13-F59 3 =—s_-« 1 3=F 94 15-136 15-198 20-84 

TKVEC 4-4758 42-1* 42-1* 

TPVEC 4-4754 

TRAPVE 4=-4754 10-23* 10=-23* 

TRE 4-7084 13-1835 13-193 21-92 21-109 21-125) 2-106) = 22-108) = 235-12 


L ET 
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—— —_ SE A a 


eS 


TRIVEC 


ae * 


~~ =" ee & 


4-475a 
6a 


1%-27%8 


a - 
* . 


——— . wera” 


13-119 28-105 
9-1 


31-83 


—_——~ 
ad 
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ROSS REFERENCE 


13-F00 13-F30 28-72 29-51 
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41-54 
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41-52 
13-;90 


10-126 


41-47 
10=55 


41-22 
10-44 


12-68 
48-78 
10-39* 
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12-16 


22-169 


"MMB «41-448 
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° 
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4-4659 
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4-465# 37- 
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